Pascal. Можно ли исправить ошибку?

[Quezovercoatl]

Приветствую.
Возник следующий вопрос:

var
 i,n:= integer;
begin
 read (i,n);
  write (i+n);
end.

Можно ли заставить программу не вылетать с ошибкой, если пользователь вместо целого числа введет, скажем, букву?

[Utkin]

 readln (i, n);

i и n Должны быть String;

[Quezovercoatl]

Сообщение от Utkin

i и n Должны быть String;

var
 i,n:String;
begin
 read (i,n);
  write (i+n);
end.

В этом случае сумма i+n не считается.

[Serge_Bliznykov]

вводите в строковую переменную,
потом проверяйте через функцию val - дальше решайте, либо заставляйте повторно вводить:

             repeat
               readln(s);
               val(s,n,err);
               if err<>0 then WriteLn('Вводить можно только ЧИСЛА! Пробуйте ещё раз!'); 
            until (err = 0);

, либо сообщайте об ошибке и выходите из программы...