Матрица, Поменять 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.

[klem4]

Код

uses crt;
const n=5;
var x:array[1..n,1..n] of integer;
   i,j,max,min,t:integer;
   nfind:integer;
   imax,jmax:integer;

Begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          x[i,j]:=random(11);
          write(x[i,j]:2);
          write(' ');
       end;
      writeln;
   end;

   min:=x[1,1];
   nfind:=1;

    for i:=2 to n do
     if x[i,i]<min then
      begin
         min:=x[i,i];
         nfind:=i;
      end;

   writeln;
   writeln('nfind=',nfind);

  max:=x[1,1];
  imax:=1;
  jmax:=1;
  for i:=1 to n do
   for j:=1 to n do
    if x[i,j]>max then
     begin
        imax:=i;
        jmax:=j;
        max:=x[i,j]
     end;
  t:=x[imax,jmax];
  x[imax,jmax]:=x[1,3];
  x[1,3]:=t;

  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          write(x[i,j]:2);
          write(' ');
       end;
      writeln;
   end;
  readln;
  end.