Выделить подстроку, которая соответствует записи вещественного числа

//Выделение из строки подстроки - реального числа с фиксированной точкой
//Предполагаем, что точка должна быть обязательно
//На входе в PosAfter - позиция начала проверки строки
//на случай, если нужно выделять несколько подстрок
//На выходе в PosAfter - позиция за выбранной подстрокой
Function RealSubString(s:String;Var PosAfter:Integer):String;
Var
  i,j : Integer;
  b,b1 : Boolean;
Label EndPStr,FindBeg;
Begin
  Result:='';  //Если не найдём - на выходе пустая строка
  b:=False;    //Признак, что уже найдена точка
  b1:=False;   //Признак, что уже найден знак
  j:=0;        //Начальная позиция подстроки
  s:=s+' ';
  For i:=PosAfter To Length(s) Do
  If (s[i] In ['0'..'9',DecimalSeparator,'-']) Then
  Begin
    If s[i]=DecimalSeparator Then
    If b Then
    Goto EndPstr //Если найдена точка, и точка уже была
    Else b:=True; //Отметим нахождение точки
    If (s[i]='-') Then //Найден знак
    If (b1 Or (j<>0)) Then
    Goto EndPstr //Если найден знак и знак уже был или не первый символ
    Else Begin b1:=True; Continue; End; //Отметим нахождение знака
    If j=0 Then j:=i;
  End Else
EndPStr:
  If j<>0 Then
  //Начало подстроки уже определялось
  If b Then
  Begin
    If (i-j)>1 Then
    Begin
      If b1 Then
      //Был знак
      j:=Pred(j); //Включим его тоже
      //Выделим подстроку
      Result:=Copy(s,j,i-j);
      PosAfter:=i; //Позиция за подстрокой на выход
      Break;
    End Else
    //Кроме точки больше ничего небыло
    Begin
      j:=0;
      b:=False;
      b1:=False;
      If (s[i] In [DecimalSeparator,'-']) Then Goto FindBeg;
    End;
  End Else
  //Точки небыло
  Begin
    j:=0;
    b:=False;
    b1:=False;
    If (s[i] In [DecimalSeparator,'-']) Then Goto FindBeg;
  end Else
FindBeg:
  //Начало подстроки ещё не определялось
  If s[i]=DecimalSeparator Then
  Begin b:=True; j:=i; End Else
  If s[i]='-' Then b1:=True Else
  Begin b:=False; b1:=False; End;
 
end;