перевести из десятичной в восьмеричную систему и обратно

function Convert(numstring: string; fromdigit: integer; todigit: integer): string;
var
  i,k: longint;
  num: extended;
  onesymbol: string;
  strbin,strtemp: string;
  module: string;
  num2: longint;
begin
  num:=0;
  k:=length(numstring)-1;
  for i:=1 to length(numstring) do begin
    onesymbol:=numstring[i];
    if LowerCase(onesymbol)='a' then onesymbol:='10' else
    if LowerCase(onesymbol)='b' then onesymbol:='11' else
    if LowerCase(onesymbol)='c' then onesymbol:='12' else
    if LowerCase(onesymbol)='d' then onesymbol:='13' else
    if LowerCase(onesymbol)='e' then onesymbol:='14' else
    if LowerCase(onesymbol)='f' then onesymbol:='15';
    num:=num+strtoint(onesymbol)*Power(fromdigit,k);
    dec(k);
  end;
  strtemp:=FloatToStr(num);
  num2:=StrToInt(strtemp);
  strtemp:='1';
  strbin:='';
  while strtemp='1' do begin
    if num2 = 0 then break
    else begin
      module:=inttostr(num2 mod todigit);
      if todigit=16 then begin
        if module='10' then module:='A' else
        if module='11' then module:='B' else
        if module='12' then module:='C' else
        if module='13' then module:='D' else
        if module='14' then module:='E' else
        if module='15' then module:='F' else
        if module='16' then module:='10';
      end;
      strbin:=strbin+module;
      num2:=num2 div todigit;
    end;
  end;
  strtemp:='';
  for i:=length(strbin) downto 1 do
    strtemp:=strtemp+strbin[i];
  Convert:=strtemp;
end;

begin
sum:=0;
write('Enter 2 SS = '); Readln(s);
For i:=Length(s)-1 DownTo 1 Do
  Begin
  If s[i]='1' Then
    Begin
    sum2:=1;
    For j:=1 To Length(s)-i Do sum2:=sum2*2;
    End
    Else sum2:=0;
  sum:=sum+sum2;
End;
If s[Length(s)]='1' Then Inc(sum);
writeln('Translated 10 SS = ',IntToStr(sum));
end
else writeln('That menu is not exist');
readln;
end.

uses
  SysUtils;
var
  vis,s: string;
  iMod, des, misc, i, j, result :integer;
begin
writeln('Press 1: 10 sysnem to 8 sysnem');
writeln('Press 2: 8 system to 10 system');
readln(misc);
if misc=1 then
begin
Write('Input 10 system = ');
  Readln(des);
  while des >= 8 do
    begin
      iMod := des mod 8;
      des := des div 8;
      vis := IntToStr(iMod) + vis;
    end;
  vis := IntToStr(des) + vis;
  Writeln('Converted 8 system = ', vis);
  end