Többsoros bemeneti fájlnál hogy kell beolvasni egy adott sor valamelyik elemét? (T. Pascal)

program Beolvas;

var

T: TextFile;

Sor: String;

I: Integer;

begin

Assign(T, ParamStr(1));

Reset(T);

for I := 1 to 8 do

ReadLn(T, Sor);

WriteLn(Copy(Sor, 1, Pos(' ', Sor)-1));

Close(T);

end.

na hajrá... bár kíváncsi lennék milyen iskola az, ahol még mindig Pascalt tanítanak :P