Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где В(i) — максимальное значение в i-ом столбце — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  B: array [1 .. 50] of integer;
  n, m, i, j, max: integer;

begin
  write('kol-vo strok N= ');
  readln(n);
  write('kol-vo stolbcov M= ');
  readln(m);

  for i := 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  write('A:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
      write(A[i, j]:8);
  end;

  writeln;

  for i := 1 to m do
  begin
    max := 1;
    for j := 2 to n do
      if A[j, i] > A[max, i] then
        A[max, i] := A[j, i];
    B[i] := A[max, i];
  end;

  writeln('B:');
  for i := 1 to m do
    write(B[i]:8);

  readln;

end.