Работа с файлами Опции

[Grabitel]

Народ.

Никто не может объяснить как сделать следующее:

IF файл_такой-то_в корневой_папке_существует THEN рабочий цикл
ELSE так_создай_его_и_работай

Может для этого следует подключить модуль dos?
И, если не трудно, где можно слить модули. А то у меня какая-то общипанная версия Pascal'я - только crt.

Grabitel.

[trminator]

Существует ли файл:

Код

var f: text;
begin
   assign(f, 'c:qwe.rty');
   {$I-}
   reset(f);
   {$I+}
   if IOResult<>0 then writeLn('File not found')
end.