В каждом столбце матрицы найти минимальный элемент и вычислить сумму этих элементов. Двумерный массив. Pascal ABC

const

ns=20;

var a:array[1 ... ns, 1 ... ns] of integer;

m, n, i, j:byte;

min, sum:integer;

begin

randomize;

readln (m, n) ;

writeln ('Исходная матрица:') ;

for i:=1 to m do

begin

for j:=1 to n do

begin

a[i, j]:=random (20) ;

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

end;

writeln;

end;

writeln ('Минимальные элементы столбцов:') ;

sum:=0;

for j:=1 to n do

begin

min:=a[1, j];

for i:=1 to m do

if a[i, j]
min:=a[i, j];

sum:=sum+min;

writeln (j,' - ', min:2) ;

end;

writeln ('Сумма минимальных элементов: ', sum) ;

end.