Type
 Matr=Array[1..5,1..5] of Integer;
Var
 A,B:Matr;
 p,q:Integer;

Procedure Exchange(N,s1,s2:Integer; Var C:Matr);
var
 V:Array[1..5] of Integer;
 j:integer;
begin
 for j:=1 to N do V[j]:=C[s1,j];
 for j:=1 to N do C[s1,j]:=C[s2,j];
 for j:=1 to N do C[s2,j]:=V[j];
end;

Begin
 Randomize;
 Writeln('Old A matrix:');
 for p:=1 to 3 do
  begin
   for q:=1 to 4 do
    begin
     A[p,q]:=Random(10);
     Write(A[p,q]:3);
    end;
   writeln;
  end;
 writeln;
 Writeln('Old B matrix:');
 for p:=1 to 5 do
  begin
   for q:=1 to 5 do
    begin
     B[p,q]:=Random(10);
     Write(B[p,q]:3);
    end;
   writeln;
  end;
 writeln;
 Exchange(4,2,3,A);
 Exchange(5,2,4,B);
 Writeln('New A matrix:');
 for p:=1 to 3 do
  begin
   for q:=1 to 4 do Write(A[p,q]:3);
   writeln;
  end;
 writeln;
 Writeln('New B matrix:');
 for p:=1 to 5 do
  begin
   for q:=1 to 5 do Write(B[p,q]:3);
   writeln;
  end;
 Readln
End.