Если файл отсутствует, то создать

[NSvirus]

Здравствуйте


Подскажите, как сделать так, что
если файл отсутствует, значит создать его.
Я тут что-то накатал, выдает несоответствие типов((

-------------------------------
type er=record
c:char
end;
var
F,G:file of er;
st:er;

begin
assign(F,'Records');
reset(F);
if Ioresult=false then rewrite(F)
end.
-----------------------------

[Sazary]

IOResult - целочисленная переменная. Надо вот так:

{$I-}
reset(F);
{$I+}
if IOResult<>0 then rewrite(F);

[NSvirus]

Спасибо Sazary, спасибо)))

[Somebody]

Только IOResult - это функция, она ещё в 0 значение сбрасывает