Выполнить преобразование записи в число - Turbo Pascal

uses  Crt;
var   str : string;
      lot : set of char;
      i   : byte;
      sim : char;
      flag : boolean;
    
BEGIN
     ClrScr;
     lot:=['0'..'9'];
     sim:='.';
     Write('Введите строку: ');
     Readln(str);
     for i:=1 to length(str) do
         if ((str[i] in lot) and (i<>0)) then
         begin
              delete(str, 1, i-1);
              break;
         end;
     i:= 2;
     flag:= false;
     While ((str[i] in lot) or ((str[i]=sim) and (flag=false))) do
     begin
          if (str[i]=sim) then flag:= true;
          Inc(i);
     end;
     if str[i-1]=sim then
        delete(str, i-1, (length(str)-(i-2)))
     else delete(str, i, (length(str)-(i-1)));
     Writeln(str);
END.