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一直读到文件结束
