Дана матрица размром М * N. В каждом столбце матрицы найти максимальный элементю

{Дана матрица размром М * N. В каждом столбце матрицы найти максимальный элемент}
Program Good;
 
Const
    M = 10;
    N = 10;
    
Var
    A:Array[0..M,0..N] Of Integer;
    Max:Array[0..N] Of Integer;
    i,j,imax,jmax,CellMax:Integer;
Begin
    CellMax:=0;
    {Случайно заполняем матрицу}
    Randomize;
    For i:=0 To M Do
        Begin
            For j:=0 To N Do
                Begin
                    A[i,j]:=Random(89)+10;
                    Write(A[i,j],' ');
                End;
            WriteLn;
        End;
    WriteLn('Max cells:');
    {"проходим" по столбцам}
    For j:=0 To N Do
        Begin
            For i:=0 To M Do
                Begin
                    If CellMax < A[i,j] Then
                        Begin
                            CellMax:=A[i,j];
                            imax:=i;{Запомноли номер максимального элемента}
                            jmax:=j;
                        End;
                    End;
            Write(A[imax,jmax],' ');
        End;
    ReadLn;
End.