Максимальные элементы столбцов матрицы

Найти максимальный элемент для каждого столбца матриц размерностью N строк M столбцов.

При переборе элементов матрицы по столбцам во внешнем цикле изменяется второй индекс, а во внутреннем - первый. Перед внутренним циклом предполагается, что первый элемент столбца двумерного массива - максимальный элемент данного столбца. Во внутреннем цикле, если обнаруживается, что текущий элемент больше уже найденного максимального, то значение переменной перезаписывается на него.

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

const 
    N = 5;
    M = 10;

var
    arr: array[1..N, 1..M] of integer;
    max: integer;
    i,j: byte;    

begin
    randomize;
    for i := 1 to N do begin
        for j := 1 to M do begin
            arr[i, j] := random(100);
            write(arr[i, j]:4);
        end;
        writeln;
    end;

    for i := 1 to M do 
        write('  --');
    writeln;

    for j := 1 to M do begin
        max := arr[1, j];
        for i := 2 to N do
            if arr[i, j] > max then
                max := arr[i, j];
        write(max:4);
    end;
    writeln;
end.

Пример выполнения программы:

   9   1  39  91  65  93  88  87  75  25
  16  96  90  17  99  36  53  72  41   3
  82  62  14  53  47  52  73  17  21  39
  56  52  41  24  83  45  48  12  85  55
  76  31  54  47  71  13  66  84  94   8
  --  --  --  --  --  --  --  --  --  --
  82  96  90  91  99  93  88  87  94  55