каждый диагональный элемент заменить на максимальный в строке

uses
  Crt;
const
  N=4;
  M=4;
var
  a:array [1..N,1..M] of integer;
  i,j,imax,jmax,temp:integer;
begin
  ClrScr;
  WriteLn('Matrix:');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=random(8)-4;
      Write(a[i,j]:2,' ')
    end;
    WriteLn
  end;
  for i:=1 to N do
  begin
    imax:=i;
    jmax:=1;
    for j:=2 to M do
      if a[i,j]>a[imax,jmax] then
      begin
        imax:=i;
        jmax:=j
      end;
    temp:=a[i,i];
    a[i,i]:=a[imax,jmax];
    a[imax,jmax]:=temp
  end;
  writeln('Result:');
  for i:=1 to N do
  begin
    for j:=1 to M do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

Program m_m;
  Uses Crt;
  Const
    num = 50;
  Type
     matrix = array[1..num,1..num] of integer;
     vector = array[1..num] of longint;
  Var
      x : matrix;
    modulus : vector;
    n : byte;
 
  Function Max(a : matrix;
                         n : byte) : integer;
    Var i,j : byte; maxi : integer;
    Begin
      maxi := a[1,1];
      For i := 2 to n do
      For j := 1 to n do
            If a[i,j] > maxi Then maxi := a[i,j];
    Max := maxi;
    End;
 
  Function Max_v(a : vector;
                           n : byte) : longint;
    Var
    i : byte;
    maxi : longint;
    Begin
      maxi := a[1];
      For i := 2 to n do
        If a[i] > maxi Then maxi := a[i];
    Max_v := maxi;
    End;
 
  Procedure Absolute_value(a : matrix;
                           var b : vector;
                           n : byte);
  Var i,j : byte;
    Begin
    For i := 1 to n do
    Begin
      b[i] := 0;
      For j := 1 to n do
        b[i] := b[i] + Abs(a[j,i]);
    End;
    End;
 
  Procedure InPut(var a : matrix;
                  n : byte);
    Var i,j : byte;
    Begin
      Randomize;
      For i := 1 to n do
      For j := 1 to n do
            a[i,j] := random(20) - 10;
    End;
 
  Procedure Out_V(a: vector;
                n : byte);
    Var i : byte; abs_max : longint;
    Begin
    abs_max := max_v(a,n);
      For i := 1 to n do
    Begin
      Textcolor(LightGray);
          If a[i] = abs_max Then TextColor(Red);
      Write(a[i]:6);
    End;
      Writeln;
    End;
 
  Procedure Out(a: matrix;
                n : byte);
    Var i,j : byte;
    Begin
      For i := 1 to n do
    Begin
      For j := 1 to n do
            Write(a[i,j]:6);
      Writeln;
    End;
    Writeln;
    End;
    
BEGIN
  ClrScr;
  Write('Введите порядок матрицы: '); Readln(n);
  InPut(x,n); Writeln('Матрица X:'); Out(x,n);
  Writeln('Максимальный элемент матрицы X: ',Max(x,n));
  Writeln('Сумма абсолютных велечин по столбцу:');
  Absolute_value(x,modulus,n); Out_v(modulus,n);
  Readkey;
END.