Найти максимальный элемент в каждом столбце двумерного массива - Pascal ABC

Формулировка задачи:

Найти максимальный элемент в каждом столбце массива размерностью 30х30 элементы вводятся случайным образом

Решение задачи: «Найти максимальный элемент в каждом столбце двумерного массива»

Листинг программы

const
  n = 30;
  m = 30;
 
var
  A: array[1..n, 1..m] of integer;
  i, j, max: integer;
  
begin
  cls;
  writeln('Вводим двумерный массив:');
  writeln;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:4)
    end;
    writeln
  end;  
  writeln;
  writeln('Максимальный элемент каждого столбца:');
  writeln;
  for j := 1 to m do
  begin
    max := -50;
    for i := 1 to n do
      if max < a[i, j] then max := a[i, j];
    write(max:4)  
  end
end.

Объяснение кода листинга программы

Объявлены переменные:
- n - количество строк в массиве (30);
- m - количество столбцов в массиве (30);
- A - двумерный массив (1..n) x (1..m) целых чисел;
- i, j - индексы для перебора массива;
- max - переменная для хранения максимального элемента;
- a[i, j] - элемент массива A по индексам i и j.
Заполнение массива случайными числами от -50 до 50.
Вывод на экран введенного массива.
Поиск максимального элемента в каждом столбце массива.
Вывод на экран найденных максимальных элементов.