Работа над ошибками

[pandaaaaa]

Думаю, что текст задачи не важен.
Главное, что мне нужно - это "защититься" от ошибок при вводе файла.
То есть, чтобы при вводе файла типа "итмгоиу.лол" программа не завершала работу, а выводила соответствующее сообщение.
Помогите с этим справиться. Писал на pascal ABC.

procedure pr1(var x:text);
var
a:string;
begin
writeln('input file path ');
readln(a);
assign(x,a);
reset(x)
end;


var
f:text;
n:integer;
a:string;
d,c:char;
begin
 pr1(f);
 n:=0;
 c:=' ';
 while not EoF(f) do begin
 d:=c;
 read(f,c);
 if not (c in [' ',#10,#13]) and (d in [' ',#10,#13]) then inc(n);
 end;
 close(f);
 writeln('file contains ',n,' words')
 end.

[ViktorR]

Не знаю как в АВС, но возможно, что и в нем есть директивы компиляции.
В их числе есть и такая {$I+} и {$I-} - проверка ошибок ввода/вывода.
Такую директиву {$I+} надо включить перед открытием файла - reset(fh).
Если файла нет, то системная переменная IOResult не равна нулю.
Это можно использовать для контроля правильности ввода имени файла.
Если ввод состоялся, то {$I-} выключает контроль.

procedure pr1(var x:text);
var a:string;
begin
   writeln('input file path ');
   readln(a);
   assign(x,a);
{$I+}
   reset(x);
   If IOResult <> 0 then {вытворяем что нам надо};
{$I-}
end;

Как то так ...

[IT-man]

Не знаю как в АВС, но возможно, что и в нем есть директивы компиляции.

в ABC есть FileExists