Rose

Добрый вечер.Подскажите пожалуйста в чем моя ошибка. Не могу понять, почему программа выдает неверный результат.
В данной целочисленной матрице A(n,n) поменять местами строку и столбец, на пересечении которых находится наибольший элемент главной диагонали матрицы. Новую матрицу не заводить.
program Project6b;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array [1..10,1..10] of integer;
i,j,m,imax, max,n:integer;
begin
writeln('input size of mtr n,m<=10');
Readln (n,m);
writeln ('input ',n:4,' str of ',m:4,' elements');
for i:=1 to n do
begin
for j:=1 to m do
read (a[i,j]);
readln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do write(a[i,j]:4);
writeln;
end;

max:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];


for i:=1 to n do
a[i+1,j]:=a[j,i+1];
for j:=1 to n do
a[i,j+1]:=a[j+1,i];
writeln('new matr');
for i:=1 to n do begin
for j:=1 to n do write (a[i,j]);
writeln;
end;
readln (a[i,j]);
end.