爲什麼程序退出？

Question

好吧，下面的程序打開一個文件，並將第一行中存在的前兩個字符串讀入兩個變量。問題是我一直在試圖看看下面的程序有什麼問題，但是我不明白爲什麼它不起作用。 編譯器編譯它沒有任何問題，但是當我運行它時，它說退出代碼爲2的退出。 問題是該文件存在。 什麼似乎是問題？ 任何人都可以幫我嗎？ 代碼如下。

Program num; 

Var 
    f: Text; 
    b, g: String; 
    c: String[1]; 

Procedure thenum (a:String); 
Begin 
    Assign(f,'textfileoffile.txt'); 
    Reset(f); 
    a := 'A'; 
    while not eof(f) and (a <> ' ') do 
    begin 
    Read (f,a); 
    End; 
    Writeln(a); 
End; 

Procedure sth (j:String); 
begin 
    Assign(f,'textfileoffile.txt'); 
    Reset(f); 
    j:='A'; 
    while not seekEoln and eof(f) do 
    begin 
    read(f,j); 
    end; 
    Writeln(j); 
End; 

begin 
    Assign(f,'textfileoffile.txt'); 
    repeat 
    Reset(f); 
    until eof(f); 
    thenum(b); 
    read(f, c); 
    sth (g); 
    if eof(f) then 
    Close(f); 
    Readln; 
End. 

Answer 1

我覺得現在的問題是，您打開相同的文件有很多次

repeat 
Reset(f); 
until eof(f); 

，你打開你的程序文件，我想你必須使用f作爲參數的功能，不要再打開它，或使其全球化