goto-befehl in delphi?

[alcaeus]

Sowas:

Delphi-Quellcode:

Start:               //Label Start
readln(f,Daten);     //Aus File in die Variable DATEN Zeile einlesen
if not EOF(f) then if daten:='' then goto Start; //Daten ist leer, kein EOF also springe ich zu Start.

geht auch so:

Delphi-Quellcode:

Daten := '';
repeat
  readln(f, Daten);
until EOF(f) or (Daten <> '');

Greetz
alcaeus