PASCAL如果不知道要输入的数据个数，怎么读取数组中的数？

while not eoln do begin i:=i+1;read(a[i]）;end;{把当行数读到a数组中}
while not eof do begin i:=i+1;read(a[i]）;end;{把所有数读到a数组中，只能用文件输入，直接运行会永远读不完}

while not(eof) do
一直读到文件结束