Округление дробной части

var s, r: string;
    w: string;
    a: real;
    b: longint;
    err: integer;
 
begin
  writeln('Enter string, containing numbers:');
  readln(s);
  while (length(s) > 0) and not(s[length(s)] in ['0'..'9']) do delete(s, length(s), 1);
  while (length(s) > 0) and not(s[1] in ['0'..'9', '+', '-']) do delete(s, 1, 1);
  s := s + ',';
  r := '';
  while length(s) > 0 do
    begin
      w := copy(s, 1, pos(',', s));
      delete(s, 1, pos(',', s));
      while (length(s) > 0) and not(s[1] in ['0'..'9', '+', '-']) do delete(s, 1, 1);
      delete(w, length(w), 1);
      while not(w[length(w)] in ['0'..'9']) do delete(w, length(w), 1);
      val(w, a, err);
      if err > 0 then break;
      b := round(a * 100);
      str(b div 100, w);
      r := r + w;
      if not(b mod 100 = 0)
        then begin
          str(abs(b mod 100), w);
          if length(w) = 1 then w := '0' + w;
          r := r + '.' + w
        end;
      r := r + ','
    end;
  if err > 0
    then writeln('Error: invalid string format.')
    else begin
      delete(r, length(r), 1);
      writeln('Result:');
      writeln(r)
    end;
  readln
end.