Как считать числа из файла в массив,если меж числами пробелы?Кол-во строк

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ReadAllText('input.txt').ToIntegers;

 a.Println

end.

Во втором вложении файл input.txt

uses crt;

var f:text;

   a:array[1..1000] of integer;

   n,i,x:integer;

begin

assign(f,'111.txt');

reset(f);

n:=0;

while not eof(f) do

begin

 inc(n);

 read(f,a[n]);

end;

close(f);

writeln('Начальный массив:');

for i:=1 to n do

write(a[i],' ');

end.