type
 vector=Array[1..8] of integer;
var
 A:array[1..5] of vector;
 D:vector;
 i,j:integer;
begin
 for i:=1 to 5 do
  begin
   for j:=1 to 8 do
    begin
     write('A[',i,'][',j,']= ');
     readln(A[i][j]);
    end;
  end;
 writeln;
 writeln('Initial array:');
 for i:=1 to 5 do
  begin
   for j:=1 to 8 do
    write(A[i][j]:4);
   writeln;
  end;
 writeln;
 D:=A[2];
 A[2]:=A[4];
 A[4]:=D;
 writeln('New array:');
 for i:=1 to 5 do
  begin
   for j:=1 to 8 do
    write(A[i][j]:4);
   writeln;
  end;
 readln
End.