Задача 1 Урок 16

Урок 16

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных
массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного
подмассива печатайте с новой строки)

type myarr1 = array[1..2, 1..2] of integer;
     myarr2 = array[1..4, 1..1] of integer;
var a: myarr1;
    b: myarr2;

procedure p1(a1: myarr1);
  var i1, j1: integer;

  begin
    i1 := 0;
    j1 := 0;
    for i1 := low(a1) to high(a1) do
    begin
      for j1 := low(a1[i1]) to high(a1[i1]) do
      begin
        writeln('Введите число');
        readln(a1[i1][j1]);
      end;
    end;
    writeln('Ваш массив: ');
    for i1 := low(a1) to high(a1) do
    begin
      for j1 := low(a1[i1]) to high(a1[i1]) do
        write(a1[i1][j1], ' ');
      writeln();
    end;
  end;

procedure p1(a1: myarr2);
  var i1, j1: integer;

  begin
    i1 := 0;
    j1 := 0;
    for i1 := low(a1) to high(a1) do
    begin
      for j1 := low(a1[i1]) to high(a1[i1]) do
      begin
        writeln('Введите число');
        readln(a1[i1][j1]);
      end;
    end;
    writeln('Ваш массив: ');
    for i1 := low(a1) to high(a1) do
    begin
      for j1 := low(a1[i1]) to high(a1[i1]) do
        write(a1[i1][j1], ' ');
      writeln();
    end;
  end;

begin
p1(a);
p1(b);
readln();
end.

КОНСОЛЬ

Введите число
15
Введите число
1
Введите число
52
Введите число
6
Ваш массив:
15 1
52 6
Введите число
12
Введите число
1
Введите число
2
Введите число
3
Ваш массив:
12
1
2
3