Паскаль. Матрица

[d_ovod]

Доброе время суток участники форума, помогите мне пожалуйста с задачей:
Задана матрица А(N,N) N<=15. Поменять местами максимальные и диагональные элементы каждой строки матрицы А. Отпечатать Преобразованную матрицу

[zasqzasq]

program Project1;
var a:array[0..15,0..15]of integer;
      i,j,k,l,m,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);

for i:=1 to n do
begin
m:=0;
for j:=1 to n do
if a[i,j]>m then begin m:=a[i,j];k:=j;end;
l:=a[i,i];a[i,i]:=a[i,k];a[i,k]:=l;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);writeln;end;
end.

[Grag]

Сообщение от d_ovod

Поменять местами максимальные и диагональные элементы каждой строки матрицы А.

А в квадратной матрице-то две диагонали: главная и побочная...