Bestimmte Stellen aus String List lesen

[hboy]

var
a,b,c: string;
[...]
procedure readinifile(dateiname: string);
begin
assignfile(F, dateiname);
reset(F);
while not EOF(F) do
begin
if not EOF(F) then readln(F,a) else abort;
if not EOF(F) then readln(F,b) else abort;
if not EOF(F) then readln(F,c) else abort;

setlength(liste, length(liste) +1 );
liste[high(liste)].deutsch := b;
liste[high(liste)].englisch := c;
end;
closefile(F);

end;