Hogyan néz ki ez a program Pascal nyelven?

Mivel egy string az maga is egy karaktertömb ezért, hiba kezeléssel a file-ok irányába:

program nezoter;

uses Crt;

var

Fogl, Kate: array [1..15] of string[20];

SzFile: Textfile;

i : byte;

begin

ClrScr;

WriteLn('3. Feladat : foglaltsag.txt beolvasasa');

Assign(SzFile, 'c:\foglaltsag.txt');

{$I-}

Reset(Szfile);

{$I+}

if IOResult <> 0 then

begin

WriteLn('Hiba a foglaltsag.txt file megnyitasanal ! Kilepeshez nyomjon egy Entert !');

Exit;

end;

for i := 1 to 15 do ReadLn(SzFile, Fogl[i]);

Close(Szfile);

WriteLn('3. Feladat : kategoria.txt beolvasasa');

Assign(SzFile, 'c:\kategoria.txt');

{$I-}

Reset(Szfile);

{$I+}

if IOResult <> 0 then

begin

WriteLn('Hiba a kategoria.txt file megnyitasanal ! Kilepeshez nyomjon egy Entert !');

Exit;

end;

for i := 1 to 15 do ReadLn(SzFile, Kate[i]);

Close(Szfile);

end.