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

const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
type
  MyArr=array [1..str,1..sto] of integer;
var
  a:MyArr;
  i,j,max,temp,tempi,tempj,k,l:integer;
{ïðîöåäóðà ïå÷àòè ìàòðèöû}
procedure Print(a:MyArr);
var
  i,j:integer;
begin
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{îñíîâíàÿ ïðîðàììà}
begin
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {ðàáîòàåì íàéäåì ìàêñèìàëüíûé ýëåìåíò}
  max:=a[1,1];
  tempi:=1;
  tempj:=1;
  for i:=1 to str do
    for j:=1 to sto do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
  writeln('-------------------------------------------------------------------------');
  writeln('Ìàêñèìóì ýòî ýëåìåíò a[',tempi,',',tempj,'] = ',max,'.');
  writeln('-------------------------------------------------------------------------');
  writeln('Ââåäèòå íîìåð ñòðîêè äëÿ ïåðåñòàíîâêè ñî ñòðîêîé ñîäåðæàùåé ìàêñèìóì...');
  writeln('-------------------------------------------------------------------------');
  repeat
    readln(l);
  until
    (l>=1) and (l<=str);
  writeln('-------------------------------------------------------------------------');
  writeln('Ââåäèòå íîìåð ñòîëáöà äëÿ ïåðåñòàíîâêè ñî ñòîëáöîì ñîäåðæàùèì ìàêñèìóì...');
  writeln('-------------------------------------------------------------------------');
  repeat
    readln(k);
  until
    (k>=1) and (k<=sto);
  if (k=tempj) and (l=tempi) then
  begin
    writeln('Âû âûáðàëè òó æå ñòðîêó è ñòîëáåö â êîòîðîé íàõîäèòñÿ ìàêñèìóì');
    writeln('ïîýòîìó íèêàêèõ çàìåí ïðîèçâîäèòüñÿ íå áóäåò, ìàòðèöà îñòàíåòñÿ íåèçìåííîé...');
    writeln('-------------------------------------------------------------------------');
    writeln('                             ÊÎÍÅÖ ÏÐÎÃÐÀÌÌÛ                             ');
    writeln('-------------------------------------------------------------------------');
    exit
  end;
  {íà÷èíàåì ïåðåñòàâëÿòü ñòîëáöû}
  if tempj<>k then
  begin
    for i:=1 to str do
    begin
      temp:=a[i,tempj];
      a[i,tempj]:=a[i,k];
      a[i,k]:=temp
    end;
  end;
  writeln('-------------------------------------------------------------------------');
  writeln('Äåéñòâèå N1: Ìåíÿåì ñòîëáöû...');
  writeln('-------------------------------------------------------------------------');
  Print(a);
  {íà÷èíàåì ïåðåñòàâëÿòü ìàòðèöó}
  if l<>tempi then
  begin
    for i:=1 to sto do
    begin
      temp:=a[tempi,i];
      a[tempi,i]:=a[l,i];
      a[l,i]:=temp
    end;
  end;
  writeln('-------------------------------------------------------------------------');
  writeln('Äåéñòâèå N2: Ìåíÿåì ñòðîêè...');
  writeln('-------------------------------------------------------------------------');
  Print(a);
  writeln('-------------------------------------------------------------------------');
  writeln('                             ÊÎÍÅÖ ÏÐÎÃÐÀÌÌÛ                             ');
  writeln('-------------------------------------------------------------------------')
end.