Найти максимальные элементы каждой строки и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных

program Noname;
uses Crt;
const n=5;
var a:array[1..n,1..n] of Integer;
c:array[1..n] of Integer;
d:array[1..n] of Integer;
i,j,max:integer;
begin
ClrScr;
TextColor(14);
Writeln('Matrica:');
TextColor(15);
Randomize;
for i:=1 to n do
for j:=1 to n do a[i,j]:=Random(90)+10;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
TextColor(14);
Writeln('Polucheniy massiv:');
TextColor(15);
for i:=1 to n do
d[i]:=a[i,i];
for i:=1 to n do
begin
max:=1;
for j:=1 to n do
if a[i,j]>a[i,max] then max:=j;
c[i]:=a[i,max];
a[i,max]:=d[i];
end;
for i:=1 to n do
a[i,i]:=c[i];
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
Readln;
end.