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

[Stefan]

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

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

[volvo]

Ну, без Continue получается гораздо больший "кошмарик":

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

function next(var i: integer): integer;
begin
  next := i;
  inc(i);
end;

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);
*)
s := '(12.2E-12 + A)';

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 not((i<=length(s)) and (not(s[i] in ['0'..'9']))) then begin
    ciferki(s,pods,i);
    if s[i] = '.' then begin
      pods:=pods+s[next(i)];
      if (s[i] in ['0'..'9']) then begin
        ciferki(s,pods,i);
        if s[i] = 'E' then begin
          pods:=pods+s[next(i)];
          if not ((s[i]<>'+') and (s[i]<>'-')) then begin
            pods:=pods+s[next(i)];
            if (s[i] in ['0'..'9']) then begin
              ciferki(s,pods,i);
              done:=true;
            end
          end;
        end;
      end;
    end;
  end;
end;
if done then
  writeln(pods);
readln;
end.

(я немного разгрузил программу, добавив функцию next, но это - капля в море...)

Кстати, если ориентироваться на работу парсера TP, то он воспринимает 12.E-12 как правильное число, поэтому вопрос к автору: должно ли ЛЮБОЕ число, воспринимаемое компилятором TP как правильное быть распечатано, или только то, что подходит под заданную в первом сообщении маску?