Pascal a rekordokat h lehet "társítani" egy . Txt fájlal?

program szovebeolvas;

uses SysUtils;

type

Tszemely=rekord

nev:string[50];

kor: byte;

foglalkozas: string[70];

end;

TTSzemely=array[1..50] of TSzemely;

var

f: Text;

sor,tmp: string;

i: integer;

szemely: TTSzemely;

begin

Assing(f,'szemelyek.txt');

Reset(f);

i:=0;

While not eof(f) do

begin

inc(i);

readln(f,sor);

with szemely[i] do

begin

nev:=copy(sor,1,pos(' ',sor));

delete(sor,1,pos(' ',sor)+1);

tmp:=copy(sor,1,pos(' ',sor));

kor:=StrToInt(tmp);

delete(sor,1,pos(' ',sor)+1);

foglalkozas:=sor;

end;

end;

end.

Valami ilyesmi lenne Free Pascalban. Ha az életkort is Stringként adod meg, akkor nem kell átalakítani beolvasás után az StrToInt függvénnyel.