Удалить из каждой группы идущих подряд цифр, которой не предшествует точка

var
  s, res: string;
  i: integer;
  cifra: boolean;
begin
 s := '0000+ab-000.001+00.a005.000-008.02+03.05-300+00+.01+00.01';
 res := '';
 cifra := false;
 for i := 1 to s.Length-1 do 
  case s[i] of
    '.' : begin cifra := true; res +='.' end;
    '0': if cifra or (s[i+1]='.') then res += '0'; 
    '1'..'9' : begin cifra := true; res += s[i] end;
   else begin 
      if not cifra and (i>1) and (s[i-1]='0') then res += '0'; 
      cifra := false; 
      res += s[i]; end;
   end;
res += s[s.Length];
writeln(res)
end.

var
  s, res: string;
  i, tochka: integer;
  cifra: boolean;
begin
 //s := '0000+ab-000.001+00.a005.000-008.02+03.05-300+00+.01+00.01';
 Readln(s);
 s := s+'++'; //барьерный элемент
 res := '';
 tochka := 0;
 for i := 1 to s.Length-1 do 
  case s[i] of
        '.':  begin if tochka<>0 then SetLength(res,Length(res)-(i-tochka-2));
                cifra := true; tochka := i; res +='.'; end;
        '0':  if cifra or (s[i+1]='.') then res += '0'; 
   '1'..'9':  begin cifra := true; res += s[i];  tochka := 0 end;
   else begin
        if cifra and (tochka<>0) then SetLength(res,Length(res)-(i-tochka-2));
        if not cifra and (i>1) and (s[i-1]='0') then res += '0'; 
        tochka := 0;
        cifra := false;
        res += s[i] end;
   end;
 SetLength(res, Length(res)-1); //удаляем барьерный элемент   
 writeln(res)
end.

var
 s: string;
 p, a, x: integer;
begin
 Readln(s); 
 //s := '000+00.00+0001.ab-000.001+00.a0050.060-008.02+03.05-300.0'.Println;;
 s := ' ' + s + ' ';
 p := pos('0',s);
 while p <> 0 do
 begin
   a := p-1; 
   while s[a] = '0' do a -= 1;
   while s[p] = '0' do inc(p); 
   if not (s[a] in ['1'..'9','.']) then 
     begin if s[p] in ['1'..'9'] then inc(p); delete(s,a+1,p-a-2); p -= p-a-2 end     
   else if (s[a]='.') and not(s[p] in ['1'..'9']) then 
     begin delete(s,a+2,p-a-2); p -= p-a-2 end
   else if s[a] in ['1'..'9'] then 
     begin
       x := a-1; while s[x] in ['0'..'9'] do x -= 1;
       if s[x] = '.' then begin delete(s,a+1,p-a-1); p -= p-a-1 end;
     end;
   p := pos('0',s,p);
 end;  
 s := copy(s,2,Length(s)-2);
Writeln(s);
end.