Дан двумерный массив. Найти столбец с максимальной и минимальной суммой элементов.

program arrays_19;

var i, j, x1, x2, k, max, min: integer;

m: array[1 ... 10,1 ... 10] of integer;

begin

for i:=1 to 10 do begin

for j:=1 to 10 do begin

m[i, j]:=random (10); / /заполнение массива случайными числами и вывод на экран

write (m[i, j]:3);

end;

writeln;

end;

max:=0; min:=100000;

for j:=1 to 10 do begin

for i:=1 to 10 do

if m[i, j]=m[i, j] then k:=k+m[i, j];

if k>max then begin max:=k; x1:=j; end;

if k
k:=0;

end;

writeln (' столбец с максимальной суммой ', x1);

write (' столбец с минимальной суммой ', x2); / /вывод ответа

end.