Free pascalban, hogyan lehet úgy beolvasni egy file-t, hogy minden új szót külön lehessen kezelni?

Értem én itt azt, hogy van egy doksim, amiben van egy azonosító, mellette a hozzátartozó információ egy szóban, és így egymás alatt.

Mert próbáltam úgy, hogy létre hozok egy Type-ot és akkor utánna egy Array tömbbe olvasom,hogy pl.:

Program valami;

Uses crt;

Type kell=record;

azonosito:string;

eredmeny:string;

End;

Var teszt:Array[1..500] of kell;

f:text;

Begin

Assign(f,'teszt.txt');

Reset(f);

i:=1

While not eof(f) do

Begin

Read(f,teszt[i].azonosito);

Readln(f.teszt[i].eredmeny);

i:=i+1

End;

close(f);

End.

így csak az azonositoba olvassa be egy sor tartalmát.