Матрица, Поменять max c элементом a[1,3] Опции

[Аделина]

Здрям^ки!
Не могу понять почему не идет программа.
Нужно определить min элемент главной диагонали, и поменять местами max элемент с a[1,3] , ещё вывести строку где находится min.
:low:

Код

program primer_3;
uses crt;
var i,j,min,k,max,n,m,p:word;
     a:array[1..5] of array[1..5] of word;
begin
randomize;
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
a[i,j]:=random(25);
write(a[i,j]:2,' ');
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
if i=j then
 begin
 if min>a[i,j] then
  begin
  min:=a[i,j];
  k:=j;
  end;
 if max<a[i,j] then
  begin
  max:=a[i,j];
  n:=i;
  m:=j;
  end;
 end;
end;
end;
writeln('min=',min,' ','max=',max);
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
if j=k then
write(a[i,j]:2,' ');
end;
end;
a[3,1]:=p;
a[3,1]:=a[n,m];
a[n,m]:=p;
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
write(a[i,j]:2,' ');
end;
writeln;
end;
writeln;

readln;
end.