LenJul_1_0

Const
    CMaxMSize = 20;
Type
    TX = Array [1..CMaxMSize, 1..CMaxMSize] Of Integer;
    TXP = ^TX;
Var
    N, M, I, J, Max, MaxI, MaxJ: Integer;
    XP, XXP: TXP;
Begin
    Repeat
        Write('Input N [2..', CMaxMSize, ']: ');
        ReadLn(N);
    Until (N > 1) And (N <= CMaxMSize);
    Repeat
        Write('Input N [2..', CMaxMSize, ']: ');
        ReadLn(M);
    Until (M > 1) And (M <= CMaxMSize);
    GetMem(XP, N * M * SizeOf(Integer));
    GetMem(XXP, N * M * SizeOf(Integer));
    Randomize;
    Max:= 0;
    WriteLn('Исходная матрица:');
    For J:= 1 To M Do Begin
        For I:= 1 To N Do Begin
            XP^[I, J]:= Random(M * N);
            XXP^[I, J]:= XP^[I, J];
            Write(XP^[I, J], ' ');
            If XP^[I, J] > Max Then Begin
                Max:= XP^[I, J]; MaxI:= I; MaxJ:= J;
            End;
        End;
        WriteLn;
    End;
    WriteLn('Max = ', Max);
    WriteLn('MaxI = ', MaxI);
    WriteLn('MaxJ = ', MaxJ);
    For I:= MaxI To N Do Inc(XXP^[I, MaxJ], Max);
    For J:= MaxJ + 1 To M Do
      For I:= 1 To N Do
        Inc(XXP^[I, J], Max);
    WriteLn('Результирующая матрица:');
    For J:= 1 To M Do Begin
        For I:= 1 To N Do Write(XXP^[I, J], ' ');
        WriteLn;
    End;
    FreeMem(XP, N * M * SizeOf(Integer));
    FreeMem(XXP, N * M * SizeOf(Integer));
    ReadLn;
End.