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

const     ns=20;var a:array[1..ns,1..ns] of integer;    m,n,i,j:byte;    min,sum:integer;beginrandomize;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 then      min:=a[i,j];    sum:=sum+min;    writeln(j,' - ',min:2); end; writeln('Сумма минимальных элементов: ',sum);end.