program test;
var
    matrix: array[1..6,1..7] of real;
    i, j: integer;
    const p=3;
    q=5;
    var
    matrix2: array[1..7,1..8] of real;
    matrix3: array[1..7,1..8] of real;

begin

    writeln ('Заполнениние массива случайными числами... ');

    for i := 1 to 6 do
        for j := 1 to 7 do
            matrix[i,j]:=random(10)-5;

        writeln ('Вывод исходного массива');
    for i := 1 to 6 do begin
        for j := 1 to 7 do
            write (matrix[i,j]:4, ' ');
        writeln
    end;

  for i := 1 to 7 do
        for j := 1 to 8 do
            matrix2[i,j]:=0;
  for i := 1 to 3 do
    for j := 1 to 7 do
      matrix2[i,j]:=matrix[i,j];
  for j := 1 to 7 do
  matrix2[4,j]:=random(10)-5;
  for i := 5 to 7 do
  for j:=1 to 7 do
  matrix2[i,j]:=matrix[i-1,j];

  for i := 1 to 7 do
    for j := 1 to 8 do
      matrix3[i,j]:=matrix2[i,j];


  for i := 1 to 7 do
    for j := 1 to 5 do
      matrix2[i,j]:=matrix2[i,j];
  for i := 1 to 7 do
  matrix2[i,6]:=random(10)-5;
  for i := 1 to 7 do
  for j:=7 to 8 do
  matrix2[i,j]:=matrix3[i,j-1];



writeln ('Вывод нового массива');
    for i := 1 to 7 do begin
        for j := 1 to 8 do
            write (matrix2[i,j]:4, ' ');
        writeln
    end;

end.