как сделать так, чтобы игнорировались ошибки и дос не вылетал??
вот например, если a:integer; то при попытке readln (a) он сразу вылетит нафиг. Как сигнорировать эту ошибку и возвратится к чтению переменной?
var a:integer;
begin
writeln('Enter an integer value');
repeat
{$I-}
readln(a);
{$I+}
until IOResult=0;
writeln('Thank you');
readln;
end.