Двумерный Массив, Последние столбцы массива Опции

[forMator]

Не получается найти последние f столбцы и вычислить их среднее арифметическое. Размерность матрицы k на l.
Запутался в циклах!Последние f столбцы нашёл,а при вычислении среднего арифметического выдаётся неправильный ответ.

[forMator]

Пытаюсь решить задачу!Опять же с двумерном массивом!!
Дана квадратная матрица разм. n на n. Вычислить сумму элементов тех столбцов первый элемент которых равен 1!
Нужен ли здесь одномерный массив для вывода этих сумм? Или же можно обойтись и без него!!
И как можно посчитать сумму столбцов где 1, описывая через string что ли??? Я делаю через string, а TP мне сразу выдаёт ошибку!! Подскажите пожалуйста как найти эту сумму!!!!!

Код

Program lo;
Const n=5;
Var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,s:integer;j:string;
begin
writeln('vvod matrici');
for i:=1 to n do
begin
for j:=1 to n read(a[i,j]);
readln;
end;
if j='1' then begin
for i:=1 to n do begin
s:=0;
for i:=1 to n do begin s:=s+a[i,j];
end;
b[j]:=s;
end;
end;