Создать процедуру для считывания массива - PascalABC.NET

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

Требуется создать процедуру для считывания массива Должно выглядеть примерно так:

                    Листинг программы
                
//процедура, которой передаем массив для заполнения
 
begin
  var a: array[1..5] of integer
  //эта процедура
end.

Решение задачи: «Создать процедуру для считывания массива»

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

procedure ReadArray(a: array of integer);
begin
a := ReadArrInteger('Введите массив: ', Length(a));
a.Println;
//a := ReadString.ToIntegers;
// for var i := 0 to Length(a) - 1 do read(a[i]);
end;
 
begin
var b: array of integer;
SetLength(b, 5);
ReadArray(b);
end.

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

Создается процедура с именем ReadArray.
В параметрах процедуры указывается массив a типа array of integer.
В теле процедуры происходит присваивание значения массива a результату работы функции ReadArrInteger.
Значение массива a выводится на экран с помощью функции Println.
В комментарии указана альтернативная реализация процедуры с использованием функции ReadString и метода ToIntegers, но она не используется в данном коде.
В конце процедуры указана переменная i, которая используется в цикле for, но в данном коде цикл не выполняется, так как длина массива равна 0.
Создается переменная b типа array of integer с длиной 5.
Вызывается процедура ReadArray для переменной b.
Код завершается.