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

begin

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

 a.Println

end.

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.