Перевод чисел из разных систем счисления

var
  s: string;
  i,b: integer;
  d,f,g: double;
  e: boolean;
 
begin
  Write('Ввведите основание системы выходной записи числа: ');
  ReadLn(b);
  e:=b<=1;
  if e then
    WriteLn('Ошибка: основание системы должно быть не менее 2')
  else begin
    Write('Введите число в десятичной системе: ');
    ReadLn(d);
    f:=Frac(d);
    d:=d-f;
    s:='';
    while d>0 do begin
      g:=d/b;
      i:=Round(Frac(g)*b);
      if i<10 then i:=i+48 else i:=i+55;
      s:=Chr(i)+s;
      d:=g-Frac(g)
    end;
    if f>0 then begin
      s:=s+'.';
      while f>0 do begin
        g:=f*b;
        i:=Trunc(g);
        f:=g-i;
        if i<10 then i:=i+48 else i:=i+55;
        s:=s+Chr(i)
      end
    end;
    if s='' then s:='0';
    WriteLn('Значение числа в ',b,'-ичной системе: ',s);
  end
end.