на побочной диагонали должны стоять максимальные элементы всех строк

[SkyL1ne]

вот решил задачу, задача работает, но к сожелению не правильно, может подскажите в чем проблема
Дана квадратная матрица B размера 10x10. Преобразовать её к такому виду, чтобы на побочной диагонали стояли максимальные элементы всех строк. Использовать процедуру для поиска максимального элемента строки и перестановки ее с диагональным в этой строке

вот сама программа

program Lab6_2;
const n=3;
type mas=array[1..n,1..n]of integer;
var
b:mas;
procedure vvod(var a:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
writeln ('элементы ',i,' элементы* ',j,':');
readln(a[i,j]);
end;
end;
procedure vuvod(a:mas);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
end;
procedure zamena(var a:mas);
var i,j,max:integer;
begin
for i:=1 to n do begin
max:=a[i,1];
for j:=2 to n do
if a[i,j]>max then
max:=a[i,j];
a[i,n+1-i]:=max;
end;end;
begin
vvod(b);
vuvod(b);
zamena(b);
vuvod(b);
readln;
end.

[Mad_Cat]

procedure zamena(var a:mas);
var i,j,max:integer;
begin
for i:=1 to n do 
for j:=2 to n do
if a[i,j]>a[i,n+1-i] then begin
max:=a[i,j];
a[i,j]:=a[i,n+1-i];
a[i,n+1-i]:=max;
end;end;