процедуры(где-то ошибка)

[Ольга123456]

Посмотрите пожалуйста.Выкладываю текст программы и программу.В программе где-то ошибка в процедуре.Запустите,посмотрите,испр авьте,пожалуйста.

var a:array[1..10,1..10]of integer;{}
i,j,k,l,max,byf:integer;
procedure findmax;
begin
max:=-maxint;
l:=0;
for j:=1 to 10 do
if a[i][j]>max then
begin
max:=a[i][j];
l:=j;
end;
end;
begin
{}
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i][j]:=random(30)+10;
write(a[i][j],' ');
end;
writeln;
end;

writeln('-----------------------------------------------------');
for i:=1 to 10 do
begin
findmax;
a[i][l]:=a[i][11-i];
a[i][11-i]:=max;
for j:=1 to 10 do
write(a[i][j],' ');
writeln;
end;
readln;
end.


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