Рекурсия, определение правильности ввода числа.

uses crt;
var s:string;
code:integer;
w:real;
begin
writeln('Vvedite 4islo');
readln(s);
while pos('',s)<>0 do delete (s,pos('',s),1);
Val(s,w,code);
If code=0 then writeln('TRUE: ',s) else writeln('FALSE: ',s);
writeln('stroka');
readln(s);
end.

uses crt;
function Prav_C(st:string;k:byte):boolean;{определение правильного целого числа - рекурсия}
begin
if st='' then Prav_C:=false
else
 begin
  if not (st[k] in ['0'..'9'])then Prav_C:=false{ведущие ноли считаем правильно}
  else if k<length(st) then Prav_C:=Prav_C(st,k+1);
 end;
end;
 
function Prav_FT(st:string):boolean;{определение правильного вещественного с фиксированной точкой}
var s1,s2:string;
begin
s1:=copy(st,1,pos('.',st)-1);{до точки - целое}
s2:=copy(st,pos('.',st)+1,255);{после точки - целое}
if Prav_C(s1,1)and Prav_C(s2,1) then Prav_FT:=true
else Prav_FT:=false;
end;
 
function Prav_PT(st:string):boolean;{проверка вещественного с плавающей точкой}
var s1,s2:string;
begin
 if (pos('E',st)<pos('.',st)){если точка дальше Е}
  or not (st[pos('E',st)+1] in ['+','-']){или после Е нет знака + или -}
   then Prav_PT:=false
 else
  begin
   s1:=copy(st,1,pos('E',st)-1);{число до Е}
   s2:=copy(st,pos('E',st)+2,255);{число после знака + или -}
   if Prav_FT(s1)and Prav_C(s2,1) then Prav_PT:=true{первое вещественное с фикс. точкой, второе-целое}
   else Prav_PT:=false;
  end;
end;
function Prav_CH(st:string):boolean;{основная функция проверки числа}
begin
if (pos('E',st)=0)and(pos('.',st)=0)then {не вещественное, проверяем на целое}
 if Prav_C(st,1) then Prav_CH:=true
 else Prav_CH:=false
else if (pos('E',st)=0)and(pos('.',st)>0)then{может быть вещественным с фиксированной точкой}
 if Prav_FT(st)then Prav_CH:=true
 else Prav_CH:=false
else if(pos('E',st)>0)and(pos('.',st)>0) then{с плавающей точкой}
 if Prav_PT(st)then Prav_CH:=true
 else Prav_CH:=false;
end;
 
var c:char;
    s:string;
begin
clrscr;
writeln('Vvedite chislo, окончание ввода Enther:');
s:='';{пустая строка}
repeat
c:=readkey;{читаем символ}
write(c);
s:=s+c;{добавляем в строку}
until c=#13;{Enter, конец}
delete(s,length(s),1);{удалим символ #13}
writeln;
if s[1] in ['-'] then delete(s,1,1);{если первый символ минус, все нормально, удалим его}
if Prav_CH(s)then write('Это число!')
else write('Это не число!');
readln
end.