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

[neomaximus]

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

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);
Проверка на ввод цифр

[Stilet]

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

Ну и вставляй. В чем сомнения то?

[puporev]

Вводи в цикле и будет Vvod 1 раз. Пример на этой же странице. Вместе наверно учитесь.
http://programmersforum.ru/showpost....18&postcount=2