Написать программу на языке программирования pascal для решения следующей : дан массив из 16 целых чисел. вывести массив на экран в виде таблицы из четырёх строк и четырёх столбцов. ввод массива, вывод массива оформить в виде подпрограммы. заранее огромное .

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

function ВводМассива:=ReadArrInteger('Введите 16 чисел через пробел:',16);

procedure ВыводМассива(a:array of integer);
begin
  foreach var p in a.Batch(4) do begin
    foreach var q in p do Write(q:4);
    Writeln
    end
end;

begin
  ВыводМассива(ВводМассива)
end.