в паскале пишет неизвестный идентификатор IOResult

uses crt;
var f:text;
nf,ng,s,mn:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f); {$I+}
if IOResult <> 0 then
begin
writeLn('Файл ',nf,' Не найден');
writeLn('Работа программы завершена. Нажмите ENTER');
readln;
exit;
end;
readln(f,s);
mn:=copy(s,7,4);
while not eof(f) do
begin
readln(f,s);
if copy(s,7,4) end;
close(f);
write('Наименьший год=',mn);
readln
end.

В чём проблема ? ?