Обработка ошибок ввода вывода, Не фильтруются вводимые символы Опции

[m0lex]

Вообщем такая проблема... Программа запрашивает у пользователя ввести переменную integer (Кол-во записей в фаиле) При вводе не численного значения прога вылетает, а мне не надо что бы так было. Пробовал с {$I-}{$I+} ничего не выходит... подскажите пожалуста ошибку.
Вот в этих 2-ух процедурах:

Procedure nov;
  Var
     		j:integer;
     		a:integer;
  Begin

       		Name_file;
       		assign(trains,name);
       		rewrite(trains);
       		write('Введите количество пунктов назначения: ');
       		readln(a);
       		for j:=1 to a do Vvod;
       		close(trains);
       		writeln;

  end;

Procedure dobav;
  Var
     		j:integer;
     		k:integer;
  Begin

       Name_file;
       		assign(trains,name);
      		 {$I-}
     			 reset(trains);
      		 {$I+}
       		if ioresult=0 then
          begin
	       	seek(trains,FileSize(trains));
               	write('Введите количество записей: ');
	       		readln(k);
	       	for j:=1 to k do Vvod;
	       	writeln('В новом фаиле ',FileSize(trains),' записей');
	       close(trains);
	  	end
       		else writeln('Фаил '+name+' несуществует');
       		writeln;
  		end;

Вот весь исходник: molex.hotbox.ru/PROG.PAS

[мисс_граффити]

или оформи так же, как открытие файла...