{$i-} Reset(f); if IOResult <> 0 then begin Write ('Fajlkezelesi hiba!'); Readln; Halt (1); end; {$i+}