Проверка файла

[Никита757]

Как описать такой момент, когда файла допустим нет в папке, то он выдал не ошибку, а что "файла не существует" или когда неправильно ссылку на файл ввести, чтобы не ошибку выдавал.
Можно код дополнить

Pascal ABC
var file1:text;
stroka:string;
i:byte;
begin
readln(stroka);
assign (file1, stroka);
reset(file1); 
if eof(file1) then writeln('Ваш файл пуст');
while not eof(file1) do
begin
readln(file1,stroka);
for i:=length(stroka) downto 1 do
case stroka[i] of
'1':begin delete(stroka,i,1); insert('один',stroka,1); end;
'2':begin delete(stroka,i,1); insert('два',stroka,1); end;
'3':begin delete(stroka,i,1); insert('три',stroka,1); end;
end;
writeln(stroka);
end;
close(file1);
end.

[Stilet]

{$I-}
reset(file1); 
if IOResult<>0 then begin
 Write('Файло нет. Утащили.'); readln; exit;
end;
{$I+}

Годится?

[Никита757]

А IOResult какого-то типа должно быть?
И его же можно после if вставить?

[Stilet]

Никакого, это зарезервированная переменка. Ее не нужно описывать.
Хотя у тебя ABCшка, как в ней, есть ли такое я не в курсе.

[Poma][a]

А в АБЦ можно попробовать с try.. Он там должен быть