Pascal. Ошибка file not found.

[Axel1981]

В моей проге данные считываются из файла. Примерно так:

writeln('Укажите имя файла, в котором хранится матрица:');
   writeln;
   readln(fn);

Если я ввожу имя несуществующего файла, то прога завершает свою работу, а если была запущена через Pascal, то в паскале пишет ошибку "file not found".
Так вот у меня такой вопрос, как сделать так, чтобы в самой программе выходила ошибка типа: "Ошибка! Файл не найден".

Подскажите, плиз, новичку.

P.S. простите если коряво описал...

[alex_fcsm]

var f:text;
    e:string;

begin
{$I-}
writeln('Input name');
readln(e);
assign(f,e);
reset(f);
if IOResult<>0 then writeln('File not FOUND!!!')
  else begin
       end;
readln;
end.

Вопросы?

[Axel1981]

попробовал, что-то у меня не получилось
Может я что-то не так делаю?

[alex_fcsm]

Я что-то не заметил у ВАС

{$I-}

. Или Вы думаете это просто так?

[knight]

-----
Case operation of {Оператор выбора}
  1,2: begin {Нахождение суммы/разности матриц}
   writeln('Укажите имя файла, в котором хранится матрица А:');
   writeln;
   readln(fn);
   Assign(f,fn); {Связываем файловую переменную с файлом}
   {$I-}  {<-------------------------- }
   Reset(f); {Открываем файл для чтения}
   {$I+}  {<-------------------------- }
   if  IOResult<>0 then
     begin
       writeln('File not FOUND!!!');
       goto l2;  {<-------------------------- }
      end
   else begin
       end;
   readln;
------

[Axel1981]

О, alex_fcsm простите пожалуйста за тупость, я сам не заметил
Спасибо.

[knight]

Явно после Basic-а на Pascal перешли GOTO - это не наш метод!

[Axel1981]

knight, спасибо за помощь, а как правильнее сделать?

[alex_fcsm]

Можно сделать с помощью repeat until

var ch:char;
........
repeat
writeln();
.........
writeln('Выход - Esc')
ch:=readkey
case ch of
'1':begin
    end;
'2':begin
    end;
 end;
until ch='#27;

[Axel1981]

alex_fcsm, обязательно попробую )
Спасибо за совет.