Помогите с проверкой ввода в паскале Опции

[neomax]

Вот код проверки,но в заданиях он просит потверждение(два раза вводить одно и тоже)
Как сделать , чтоб было без потверждения?

prodcedure vvod (var t: word;a,b:word);
var
x,y,code:integer;
l:sttring;
flag:boolean;
begin
x:=wherex;
y:=wherey;
repeat
flag:=true;
readln(l);
val(l,t,code);
if(code<>0) or (not(t>a)) or (not(t<b)) then
begin
gotoxy(x,y);
clreol;
write('oshibka');
delay(1000);
gotoxy(x,y);
clreol;
flag:=false;
end;

После каждого write надо вставлять vvod(переменная которую проверяем,0,1000);
Проверка на ввод цифр