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