Переставить местами две любые строки матрицы; два любых столбца матрицы.

var
  a: array [1..100, 1..100] of integer;
  i, j, k, n, m, n1, m1, n2, m2: integer;
 
begin
  randomize;
  {a)}  readln(n, m);
  for i := 1 to n
  do 
  begin
    for j := 1 to m
    do 
    begin
      A[i, j] := random(100);
      write(A[i,j], ' ');
    end;
    writeln;
  end;
  writeln('введите строки которые нужно поменять:');
  readln(n1, n2);
  for i := 1 to n
  do 
  begin
    swap(A[n1, i], A[n2, i])
  end;
  for i := 1 to n
  do 
  begin
    for j := 1 to m
    do 
    begin
      write(A[i,j], ' ');
    end;
    writeln;
  end;
  {b)}writeln('введите номера столбцов которые нужно поменять:');
  readln(m1, m2);
  for i := 1 to n
  do 
  begin
    swap(A[i, m1], A[i, m2])
  end;
  for i := 1 to n
  do 
  begin
    for j := 1 to m
    do 
    begin
      write(A[i,j], ' ');
    end;
    writeln;
  end;
end.

type mtr=array[1..10,1..10] of integer;
procedure matrix(var a:mtr;var m,n:integer);
var i,j:integer;
begin
randomize;
repeat
writeln('Введите размеры матрицы от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(50);
end;
procedure print(a:mtr;m,n:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
procedure obmen(var a:mtr;m,n,k,s1,s2:integer);
var i,j,x:integer;
begin
case k of
1:for i:=1 to n do
   begin
    x:=a[s1,i];
    a[s1,i]:=a[s2,i];
    a[s2,i]:=x;
   end;
2:for i:=1 to m do
   begin
    x:=a[i,s1];
    a[i,s1]:=a[i,s2];
    a[i,s2]:=x;
   end;
end;
end;
var a:mtr;
    m,n,i,j,s1,s2:integer;
begin
randomize;
matrix(a,m,n);
print(a,m,n,'Исходная матрица');
repeat
writeln('Введите номера строк для обмена');
readln(s1,s2);
until(s1 in [1..m])and(s2 in [1..m])and(s1<>s2);
obmen(a,m,n,1,s1,s2);
print(a,m,n,'Обмен строк '+inttostr(s1)+' и '+inttostr(s2));
repeat
writeln('Введите номера столбцов для обмена');
readln(s1,s2);
until(s1 in [1..n])and(s2 in [1..n])and(s1<>s2);
obmen(a,m,n,2,s1,s2);
print(a,m,n,'Обмен столбцов '+inttostr(s1)+' и '+inttostr(s2));
end.