pascal 在文件不为空时跳过文件

我正在尝试使用 pascal 从 txt 文件中读取一些数据.当我使用 while 循环继续执行操作而文件尚未结束时，pascal 会忽略 while 循环并继续执行我的程序.真的不知道为什么会发生这种情况我使用的文件是一个 .txt 文件，它肯定不是空的！

I am trying to read some data from a txt file using pascal. When I use a while loop to keep doing actions whilst the file has not ended pascal ignores the while loop and proceeds to the end of my program. Don't really know why this is happening the file I am using is a .txt file which is most certainly not empty!

下面的代码

program Wiki_Lezen;

{$mode objfpc}

 TYPE wikiNew=RECORD
  naam,omschrijving:string;
 END;

  var f: file of wikiNew;
  var bestandsNaam:string;
  var wiki:wikiNew;
  var teller:integer;



begin

  writeln('Geef een bestandsnaam op');
  readln(bestandsNaam);
  ASSIGN(f,bestandsNaam);
  RESET(f);

  while not EOF(f) do
  begin
     read(f,wiki);
     writeln('wikinaam: ', wiki.naam);
     writeln('Geef een omschrijving voor wiki');
     readln(wiki.omschrijving);
     write(f,wiki);
  end;

  CLOSE(f);

  writeln;
  writeln('Om het programma te stoppen druk op <ENTER>');
  readln();
end.