VAR
 A,B:Array[1..4,1..4] of Byte;
 i,j,tA,tB,NA,NB:Byte;
BEGIN
 Randomize;
 For i:=1 to 4 do
  For j:=1 to 4 do
   begin
    A[i,j]:=Random(20);
    B[i,j]:=Random(20);
   end;

 Writeln('Initial array A:                  Initial array B:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do write(A[i,j]:4);
   write('                  ');
   For j:=1 to 4 do write(B[i,j]:4);
   writeln;
  end;
 Writeln;

 Write('Element of A to be replaced: Line - 1, Column - 2 ');
 Readln(tA);
 If tA=1 then
  Write('Number of line to be replaced: ')
 else
  Write('Number of column to be replaced: ');
 Readln(NA);

 Write('Element of B for replacement: Line - 1, Column - 2 ');
 Readln(tB);
 If tB=1 then
  Write('Number of line to be inserted into A: ')
 else
  Write('Number of column to be inserted into A: ');
 Readln(NB);

 If (tA=1) and (tB=1) then
  for j:=1 to 4 do A[NA,j]:=B[NB,j] else
 If (tA=1) and (tB=2) then
  for j:=1 to 4 do A[NA,j]:=B[j,NB] else
 If (tA=2) and (tB=1) then
  for j:=1 to 4 do A[j,NA]:=B[NB,j] else
 If (tA=2) and (tB=2) then
  for j:=1 to 4 do A[j,NA]:=B[j,NB];
 Writeln;

 Writeln('Changed array A:                  Initial array B:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do write(A[i,j]:4);
   write('                  ');
   For j:=1 to 4 do write(B[i,j]:4);
   writeln;
  end;

 Readln
END.