Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / modul03

unit modul03;

interface  procedure TrueFloat(var s: string);

implementation
procedure TrueFloat(var s: string);
var i: byte; c,k: integer;
begin

    i:=1;
   repeat
     if copy(s,i,2)=',,' then
       s:=copy(s,1,i)+copy(s,i+2,length(s)-(i+1))
      else i:=i+1
   until (i>length(s));
   
      i:=1;
   repeat
     if copy(s,i,2)='..' then
       s:=copy(s,1,i)+copy(s,i+2,length(s)-(i+1))
      else i:=i+1
   until (i>length(s));
   
  k:=pos(',',s);
  if k>0 then s[k]:='.';
  
end;

procedure TrueInt(s:string);
const z=':;! ,./';
var c,i:integer; num: real;
begin
 for i:=1 to length(s) do
    if pos(s[i],z)>0
    then begin delete(s,i,1);
    dec(i);
    end;
   val(s,num,c);
  writeln('Откорректированное число: ',num);
  end;
end.