Паскаль. Идентификатор вещ. числа.

[Mishka-01]

Нужно определить является ли данный набор литеров вещественным числом, к примеру -2.33E-3
Вот программа, ошибку найти не могу

program Rec;
var d:byte; Ciferki:set of char; ID:boolean;

procedure Iden;
var c:char;
begin
read(c); If ((c='-') or (c='+') or (c in Ciferki) or (c='.') or (c='E'))
and (d<10) then begin
if d=1 then begin If (c='-') or (c='+') then begin d:=d+1; Iden;end
else if c in Ciferki then begin d:=d+2; Iden;end
else begin d:=100;ID:=false;Iden;end;end;

If (d=2) and (c in Ciferki) then begin d:=d+1; Iden;end
else begin d:=100;ID:=false;Iden;end;

If (d=4) and (c in Ciferki) then begin d:=d+1; Iden; end
else begin d:=100; ID:=false;Iden;end;

If (d=6) then begin If (c='-') or (c='+') then begin d:=d+1; Iden; end
else if c in Ciferki then begin d:=d+2; Iden; end
else begin d:=100; ID:=false;Iden;end;end;
If (d=7) and (c in Ciferki) then Iden;

if c in Ciferki then Iden
else If (c='.') and (d=3) then begin d:=d+1; Iden; end
else if (c='E') and (d=5) then begin d:=d+1; Iden; end
else begin d:=100; ID:=false;Iden;end;end

else if c='!' then exit
else ID:=false;
end;

begin
d:=1;ID:=True;
Ciferki:=['0'..'9'];
Iden;
Writeln(ID);
end.