Дана прямоугольная матрица размера m×n. Составить программу, которая находит столбцы с наибольшей и наименьшей суммой элементов. Вывести найденные столбцы и суммы их элементов — Pascal(Паскаль)

uses crt;
var
a:array[1..200,1..200] of integer;
s,i,j,max,min,maxj,minj,m,n:integer;
begin
clrscr;
randomize;
write('Введите n ->');
readln(n);
write('Введите m ->');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to n do
begin
s:=s+a[i,1];
end;
min:=s;
max:=s;
minj:=1;
maxj:=1;
writeln;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
if min>s then
             begin
             min:=s;
             minj:=j;
             end;
if max<s then
             begin
             max:=s;
             maxj:=j;
             end;
end;
writeln('Максимальныя сумма ',maxj,' столбца =',max);
writeln('Минимальная сумма ',minj,' столбца =',min);
readln;
end.