pascal работа с файлами

[evilguy]

как бы мне сделать проверку на наличие файла? Типа если он есть что бы создал. текстовой файл

[Sazary]

Типа если он есть что бы создал.

Может, наоборот, если его нет, то создать?

uses crt;
var
s : string;
f : text;

begin
clrscr;
readln(s);
assign(f,s);
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then
 begin
 writeln('File not exist');
 rewrite(f);
 end;

close(f);
readln;
end.

[Min]

через IOResult. Help на эту команду у Borland как раз подойдет.

[Min]

)))) опоздал))