Паскаль проверить существование файла -- пример

Чтобы проверить существование файла можно использовать только такой код:

Var
    f1:text; // тип для открытия текстового файла
    filename: string;
begin

  filename := 'D:/tmp/my/input.txt'; // путь к файлу

  assign(f1, filename);
  {$I-} reset(f1);  {$I+}
  if IOResult <> 0 then
  begin
    writeLn('File ', filename, ' ne naiden!');
  end else
  writeLn('File ', filename, ' suchectvuet!');

  readln();
end.

Если файл, который вы проверили не существует, а вам нужно где-то разместить файл, чтобы потом его читать, то можно использовать решение отсюда.