Матрица B состоит из 6 строк и 5 столбцов. Найти максимальный элемент и подсчитать сумму элементов столбца, в котором он находится — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 6, 1 .. 5] of integer;
  max, summa, stolb: integer;
  i, j: integer;

  { -------------------------------------------- }
begin

  for i := 1 to 6 do
    for j := 1 to 5 do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end; { считываем сам массив }

  writeln('Vot elementy massiva [6x5]: ');
  for i := 1 to 6 do
  begin
    writeln;
    for j := 1 to 5 do
      write(A[i, j]:8, ' ');
  end; { выводим массив }

  max := A[1, 1];
  stolb := 1;
  for i := 1 to 6 do
    for j := 1 to 5 do
      if A[i, j] > max then
      begin
        max := A[i, j];
        stolb := j;
      end;

  summa := 0;
  for i := 1 to 6 do
    summa := summa + A[i, stolb];

  writeln;
  writeln;
  writeln('MAX: ', max);
  writeln('SUMMA: ', summa);

  readln;

end.