Напечатать двумерный массив 2 х 3 со своими введёнными числами - Turbo Pascal

Формулировка задачи:

Напечатать двумерный массив 2 х 3 со своими введёнными числами.

         uses Crt;
const N = 2;  M = 3;
A: array [1..2, 1..3] of integer =
    (7,12,5,9,2,21);
var i, j: integer;
begin
ClrScr;
    writeln;
for i:= 1 to N do begin
  for j:= 1 to M  do begin
     write('  ', A[i, j]:2);
end; writeln; end;
   readln
end.

Попытался использовать ваш ответ на свои введённые числа для одномерного массива. Не получилось. Отказ. Возможно ли для двумерного массива вводить свои числа. Если возможно, то покажите – как. Ещё вариант с вводом своих чисел.

uses Crt;
const N = 2;  M = 3;
var a: array [1..2, 1..3] of integer;
          i: integer;
begin
ClrScr;
writeln(' Ввод чисел строкой с пробелом:');
   write('   ');
for i:= 1 to 2 do begin
  for j:= 1 to 3 do begin
    read(a[i, j]);
    readln;
    write(a[i, j]:3);
   end;  writeln;  end;
  readln
end.

На выходе получил бесконечный ввод чисел. И ЧТО С ЭТИМ ДЕЛАТЬ?

Решение задачи: «Напечатать двумерный массив 2 х 3 со своими введёнными числами»

Листинг программы

uses Crt;
const N = 2; M = 3;
var a: array [1..N, 1..M] of integer;
    i, j: integer;
begin
  ClrScr;
  writeln('Ввод чисел строкой с пробелом: ');
  for i := 1 to N do
    for j := 1 to M do 
      read(a[i, j]);
  for i := 1 to N do begin
    for j := 1 to M do 
      write(a[i, j]:4);
    writeln;
  end;
  readln
end.

Объяснение кода листинга программы

Объявлены константы N = 2 и M = 3, которые определяют размерность двумерного массива.
Объявлен двумерный массив a размером 2 х 3 типа integer.
Объявлены переменные i и j типа integer, которые будут использоваться в качестве индексов для перемещения по элементам массива.
Выполняется функция ClrScr, которая очищает экран.
Выводится сообщение с приглашением ввести числа строкой с пробелом.
В цикле for i := 1 to N выполняется чтение N чисел, каждое из которых будет сохранено в соответствующем элементе массива a[i, j].
В цикле for i := 1 to N выполняется запись N строк, каждая из которых содержит M чисел, отформатированных как 4-значное число, из массива a.
Выводится символ новой строки, чтобы перейти на следующую строку.
Завершается работа программы, ожидая ввода пользователя для завершения работы программы.