Строки.Плавающая точка., Выделить подстроку, соответствующую вещественному числу с плавающей Опции

[Stefan]

Задана строка символов, состоящая из букв, цифр, запятых, точек,
знаков “+” и “-“, открывающей и закрывающей скобок. Выделить подстроку,
соответствующую вещественному числу с плавающей точкой (т.е. в виде –0.00E-
00).

Подскажите,как это сделать?

[мисс_граффити]

сходу вот такой кошмарик получился:

program podstroka;
var s,pods:string;
i:integer;
done:boolean;

procedure ciferki(const s: string; var pods: string; var i: integer);
begin
while (s[i] in ['0'..'9']) and (i<=length(s)) do
  begin
  pods:=pods+s[i];
  inc(i);
  end;
end;

begin
writeln('input string?');
readln(s);
i:=1;
done:=false;
while not(done) and (i<=length(s)) do
  begin
  pods:='';
  while (not(s[i] in ['-','0'..'9'])) and (i<=length(s)) do
    inc(i);
  if s[i]='-' then
    begin
    pods:=pods+s[i];
    inc(i);
    end;
  if (i<=length(s)) then
    if not(s[i] in ['0'..'9']) then
      continue;
  ciferki(s,pods,i);
  if s[i]<>'.' then
    continue;
  pods:=pods+s[i];
  inc(i);
  if not(s[i] in ['0'..'9'])then
    continue;
  ciferki(s,pods,i);
  if s[i]<>'E' then
    continue;
  pods:=pods+s[i];
  inc(i);
  if (s[i]<>'+') and (s[i]<>'-') then
    continue;
  pods:=pods+s[i];
  inc(i);
  if not(s[i] in ['0'..'9'])then
    continue;
  ciferki(s,pods,i);
  done:=true;
  end;
if done then
  writeln(pods);
readln;
end.

это если чисто со строкой работать...
можно попробовать делать через использование процедуры val...

А по-хорошему, надо подумать, как без continue обойтись...