ファイルの行からすべての数字を読む

Question

data.txtの最初の行には、スペースで区切られた2つの数字があります。

各番号を画面に読み書きするにはどうすればよいですか？

これはこれまでのコードのうち、最初の番号だけを読み取るコードです。

program p1; 
uses crt; 
    const filename = 'data.txt'; 
    var 
    cv : integer; 
    myfile: text; 
    i,sum:integer; 
begin 
    i:=0; 
    sum:=0; 
    Assign(myfile, filename); 
    Reset(myfile); 
    while not (Eof(myfile)) do 
     begin 
     while not eoln(myfile) do begin 
      Readln(myfile, cv); 
      Writeln(cv); 
     end; 
     end; 
    close(myfile); 
end. 

これは私のdata.xtファイルです：

4 10 
250 
350 
400 
1000 

私は最初の行にその10に得ることができない、それを行うには

Answer 1

多くの方法が、最も近い1既に内部ループを削除し、READLNの代わりにREADを使用することです。ように：

program p1; 
uses crt; 
const filename = 'data.txt'; 
var 
    cv : integer; 
    myfile: text; 
begin 
    Assign(myfile, filename); 
    Reset(myfile); 
    while not (Eof(myfile)) do begin 
    Read(myfile, cv); 
    Writeln(cv); 
    end; 
    close(myfile); 
end.