Смена строк местами...

[Neksion]

Всем привет! Подскажите почему задача не работает(Pascal)
В задаче сказано - переставить строку с максимальным элементом на главной диагонали со строкой с номером s.
И тему, где говорилось, как осуществляется смена местами строк я читал, но все равно не робит прога, Помогите плз!

uses crt;
const n=4;m=4;
var a:array [1..n,1..m] of integer;
i,j,k,h,max,s,p:integer;
begin
 clrscr;
 for i:=1 to n do
 for j:=1 to m do
  begin
   write('Введите ',i,',',j,' элемент массива - ');
   readln(a[i,j]);
  end;
 max:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do
 if(i=j)or(i+j=5)and(i<>j) then
 if (max<=a[i,j]) then
 begin
  max:=a[i,j];
  k:=i;
  h:=j;
 end;
 clrscr;
 for i:=1 to n do
 begin
 for j:=1 to m do
 write(a[i,j]:4);
 writeln;
 end;
 writeln('Макс. элемент на диагоналях -', max);
 write('С какой строкой будем менять? - ');
 readln(s);
 if (s<=n)and(s>0) then
 begin
  for i:=1 to n do
  for j:=1 to m do
  begin
  p:=a[s,j];
  a[s,j]:=a[k,j];
  a[k,j]:=p;
  end;
  for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
  end;
 end
 else writeln('Такой строки нет.');
 readln;
 end.

[GetMax]

И тему, где говорилось, как осуществляется смена местами строк я читал, но все равно не робит прога

Видимо плохо читали. Вот вроде все робит

max:=a[1,1];
for i:=1 to n do
Begin
  for j:=1 to m do
  if(i=j) then
  if (max<=a[i,j]) then
  begin
     max:=a[i,j];
     k:=i;
     h:=j;
  end;
End;
writeln('max el -', max);
write('S kakoy strokoy menyat? - ');
readln(s);
if (s<=n)and(s>0) then
begin
  for j:=1 to m do
  begin
     p:=a[s,j];
     a[s,j]:=a[k,j];
     a[k,j]:=p;
  end;
end;
for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
readln;

[Neksion]

GetMax, Огромное спасибо, помогли)