Вычислить и запомнить сумму и количество элементов каждого столбца матрицы, результат отпечатать в виде двух строк.

Что, жопу в играх просиживали, а тут резко учиться надо? )

for j:=1 to m do
begin
summ[j]:=0; count[j]:=0;
for i:=1 to n do
begin
summ[j]:=summ[j]+A[i,j];
inc(count[j]);
end;
end;
writeln('__________________');
for j:=1 to m do write(summ[j]:5);
writeln;
for j:=1 to m do write (count[j]:5);
writeln;