Как заполнить массив значениями с клавиатуры?

Есть несколько вариантов заполнения массива с клавиатуры. Рассмотрим самый красивый с точки зрения пользовательского интерфейса.

Заполнение одномерного массива

for i := 1 to N do
  begin
    write('Введите значение a[', i, '] = ');
    readln(a[i]);
  end;

Заполнение двумерного массива

for i := 1 to N do
  for j := 1 to M do
    begin
      write('Введите значение a[', i, ',', j, '] = ');
      readln(a[i,j]);
    end;