Переставить строки и столбцы матрицы

program ;
uses crt;
var 
    a:array[1..10,1..10]of integer;
    i,n,m,y,l,j,k,x,max,imax,jmax:integer;
begin
clrscr;
writeln('Ishodnaya matrica:');
write('Введите n='); readln(n);
write('Введите m='); readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 gotoxy(j*3+1,i*1+5);
readln(a[i,j]);
end; end;
 
    writeln;
  
repeat
write('k=');
readln(k);
write('l='); readln(l)
 
until (k>=1)and(k<=n)and(k<=m);  {проверка ввода}
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j]; {максимум}
     imax:=i;     {номер строки}
     jmax:=j;      {номер столбца}
   end;
writeln('Max=',max,'  imax=',imax,'  jmax=',jmax);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[k,j];
    a[k,j]:=a[imax,j]; {меняем местами элементы строки k со строкой, где макс}
    a[imax,j]:=x;
  end;
{перестановка столбцов}
 
for i:=1 to n do
  begin
    x:=a[i,l];
    a[i,l]:=a[i,jmax];{меняем местами элементы столбца l со столбцом, где макс}
    a[i,jmax]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.