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

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

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

program u16z1;
var
  a: array [1..2, 1..2] of integer;
  b: array [1..4, 1..1] of integer;
  i, j: integer;
begin
  writeln('vvedite chisla');
  for i:=low(a) to high(a) do
    for j:=low(a[i]) to high(a[i]) do
      readln (a[i][j]);
  for i:=low(b) to high(b) do
    for j:=low(b[i]) to high(b[i]) do
      readln (b[i][j]);
  writeln('M1');
  for i:=low(a) to high(a) do
  begin
    for j:=low(a[i]) to high(a[i]) do
      write (a[i][j], ' ');
    writeln;
  end;
  writeln('M2');
  for i:=low(b) to high(b) do
  begin
    for j:=low(b[i]) to high(b[i]) do
      write (b[i][j], ' ');
    writeln;
  end;
  readln();
end.