Обменять местами max с элементом главной диагонали по строкам

program ZeroMax;
const L=10;
type T2Mx = array[1.. L,1..L] of integer;
var A: T2Mx;
i,j,N,Imax,Jmax:byte;
Max,buf:integer;
begin
{шаг 1-2: ввод матрицы}
writeLn('Введите размерность матрицы:');
readLn(N);
for i:=1 to N do
for j:=1 to N do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
{шаг 2-3: вывод матрицы до преобразования}
writeLn('Матрица до преобразования:');
for i:=1 to N do
begin
for j:=1 to N do
write(A[i,j]:4);
writeLn;
end;
for i:=1 to N do
begin
     max:= A[i,1];
       for j:=1 to N do
          if A[i,j]>max then
            max:=A[i,j];
            writeLn('Max =', Max);
 
             buf := A[i,i];
             A[i,i] := max;
             max := buf;
       end;
writeLn('Матрица после преобразования:');
for i:=1 to N do
    begin
      for j:=1 to N do
      write(A[i,j]:4);
       writeLn;
    end;
end.

for i:=1 to N do
begin
max:= A[i,1];
for j:=1 to N do
if A[i,j]>max then
max:=A[i,j];
writeLn('Max =', Max);
 
buf := A[i,i];
A[i,i] := max;
max := buf;
end;

for i:=1 to N do
begin
    max:= A[i,1];
    for j:=1 to N do
        if A[i,j]>max then
        begin
            max:=A[i,j];
            max_i:=i;
            max_j:=j;
        end;
    writeln('Max =',max);
    buf:= A[i,i];
    A[i,i]:=A[max_i,max_j];
    A[max_i,max_j]:=buf;
end;

uses crt;
 const n=5;
 var a: array[1..n,1..n] of byte; max,i,j: byte;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(10);
      write(a[i,j]:3);
     end;
     writeln;
    end;
  for i:=1 to n do
   begin
    max:=a[i,1];
    for j:=1 to n do
     if a[i,j]>max then max:=a[i,j];
    a[i,i]:=max+a[i,i];
    max:=a[i,i]-max;
    a[i,i]:=a[i,i]-max;
   end;
  writeln('результат: ');
  for i:=1 to n do
   write(a[i,i]:3);
 end.