дан двумерный целочисленный массив размерности 4х5. Найти столбец,содержащий наименьшую сумму элементов- Pascal(Паскаль)

program first;
uses crt;
const n=4; //размеры матрицы, первое кол.строк
      m=5;  //кол. столбцов
var  a:array[1..n,1..m] of integer; //матрица
     i,j:integer;//счетчики циклов
     min:integer; //значение минимальной суммы в столбце
     sum:integer; //значение суммы
     jmin:integer; //номер столбца с минимальной суммой
begin
writeln('Введите элементы матрицы:');
for i:=1 to n do
for j:=1 to m do
 begin
  Write ('a[',i,',',j,']=');
  Readln(a[i,j]);
 end;
clrscr;  //очистим экран от ввода
writeln('Матрица:'); //выведем матрицу таблицей
for i:=1 to n do
 begin
  for j:=1 to n do
  Write(a[i,j]:5);
  Writeln;
 end;
writeln;
min:=maxint; //самое большое число
jmin:=0;
for j:=1 to m do//считаем в столбцах
 begin
  sum:=0;
  for i:=1 to n do
  sum:=sum + a[i,j];//сумма
  writeln('Сумма в столбце ',j,'=',sum);
  if sum<min then  //если меньше чем до этого
   begin
    min:=sum; //она минимальная
    jmin:=j;//номер столбца
   end;
 end;
Write('Минимальная сумма в столбце ',jmin,'=',min);
end.