Программа по переводу чисел из одной системы счисления в другую

 Program Laba;
 
Var
b,o,d,x: longint;
base: char;
 
{Функция ToDec переводит из 2-ой СС и 8-ой СС в 10-ую СС}
 
Function ToDec(x: longint; _base: byte): longint;
var S,pow: longint;
Begin
   S:=0;
   pow:=1;
   while x>0 do
   begin
      S:=S+(x mod 10)*pow;
      x:=x div 10;
      pow:=pow*_base;
   end;
   ToDec:=S;
end;
 
{Функция DecTo переводит из 10-ой СС в 2-ую и 8-ую}
 
Function DecTo(x: longint; _base: byte): longint;
var S,pow: longint;
Begin
   S:=0;
   pow:=1;
   while x>1 do
   begin
      S:=S+(x mod _base)*pow;
      x:=x div _base;
      pow:=pow*10;
   end;
   S:=S+x*pow;
   DecTo:=S;
end;
 
Begin
   Writeln('Введите число');
   Readln(x);
   Writeln('Введите основание системы счисления (b - 2-ая, o - 8-ая, d - 10-ая) ');
   Readln(base);
   if (base='b') then
   Begin
      b:=x;
      d:=ToDec(b,2);
      o:=DecTo(d,8);
   end;
   if (base='o') then
   Begin
      o:=x;
      d:=ToDec(o,8);
      b:=DecTo(d,2);
   end;
   if (base='d') then
   begin
      d:=x;
      b:=DecTo(d,2);
      o:=DecTo(d,8);
   end;
   Writeln('Двоичное число: ', b, ' b');
   Writeln('Восьмеричное число: ' ,o, ' o');
   Writeln('Десятичное число: ' ,d , ' d');
   Readln;
end.