Як заповнити масив значеннями з клавіатури?

Існує декілька варіантів заповнення масиву з клавіатури. Розглянемо найкрасивіший з точки зору інтерфейсу користувача.

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

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;