SOS! Нужна срочная помощь Паскаль!

[ЯншинаВера]

Написать функцию, обеспечивающую ввод с клавиатуры положительного двухзначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой. Функция должна позволять пользователю редактировать введенное число при помощи клавиши <BackSpace>. Если пользователь ввел хотя бы одну цифру, то при нажатии клавиши <Enter> функция должна завершать работу и возвращать введенное пользователем число вызвавшей ее процедуре.



Program Esarevskii;
uses crt;
var n:integer;
function chislo(n:integer):integer;
var i, k:integer;
begin
k:=n;
for i:=1 to 2 do
k:=k div 10;
if k>0 then begin write('Nevernoe chislo'); exit; end;
if n>9 then writeln(n) else writeln ('nevernoe chislo');
end;
begin
write('VVEDITE n= ');
readln(n);
chislo(n);
readln;
end.
Препода не устраивает, говорит нужно, чтобы при вводе букв выдавало сообщение "Неверное число" и ввод чисел был до тех пор, пока не нажмешь ESC/

Помогите пожалуйста или подскажите

[ЯншинаВера]

Нашла такую же задачу, все ок, только не выводит сообщение "Неверное число", если набираешь трехзначное или однозначное и не повторяет запуск программы

[ЯншинаВера]

Uses crt;
Var c:char;
S:string;
X,e:integer;
Function far(l:byte):integer;
Label 1,2;
Begin
1:c:=readkey;
case c of
'0'..'9':begin
write(c);
s:=s+c;
goto 1;
end;
#8:if length(s)>0 then begin
write(#8,' ',#8);
delete(s,length(s),1);
goto 1;
end;
#13:begin
if length(s)>0 then begin
writeln;
val(s,x,e);
goto 2;
end;
goto 1;
end;
else goto 1
end;
2:far:=x;
end;
begin
far(1);
readln
end.