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

Вот программа. Сохрани файл в досовской кодировке, иначе русские буквы будут отображаться крякозябрами
program program1;
var d,b,w:longint;o:char;
function DecToBin(x:longint):longint;
var dd,c,r:longint;
begin
r:=0;
dd:=x;
c:=1;
while dd>1 do
begin
r:=dd mod 2*c+r;
c:=c*10;
dd:=dd div 2;
end;
r:=dd*c+r;
DecToBin:=r;
end;
function DecToOct(x:longint):longint;
var dd,c,r:longint;
begin
r:=0;
dd:=x;
c:=1;
while dd>1 do
begin
r:=dd mod 8*c+r;
c:=c*10;
dd:=dd div 8;
end;
r:=dd*c+r;
DecToOct:=r;
end;
function OctToDec(x:longint):longint;
var dd,c,r:longint;
begin
dd:=x;
r:=0;
c:=1;
while dd>0 do
begin
r:=r+dd mod 10*c;
dd:=dd div 10;
c:=c*8;
end;
OctToDec:=r;
end;
function BinToDec(x:longint):longint;
var dd,c,r:longint;
begin
dd:=x;
r:=0;
c:=1;
while dd>0 do
begin
r:=r+dd mod 10*c;
dd:=dd div 10;
c:=c*2;
end;
BinToDec:=r;
end;
begin
write('Введите число ');
readln(d);
write('Введите основание системы счисления ');
readln(o);
if (UpCase(o)<>'D') and (UpCase(o)<>'O') and (UpCase(o)<>'B') then
begin
writeln('Неверное основание');
halt;
end;
if UpCase(o)='D' then
begin
b:=DecToBin(d);
w:=DecToOct(d);
end;
if UpCase(o)='O' then
begin
w:=d;
d:=OctToDec(w);
b:=DecToBin(d);
end;
if UpCase(o)='B' then
begin
b:=d;
d:=BinToDec(b);
w:=DecToOct(d);
end;
writeln('Двоичное число ',b,' b');
writeln('Восьмеричное число ',w,' o');
writeln('Десятичное число ',d,' d');
end.

стучи в агент, объясню все непонятки

для перевода числа в другую с/с нужно разложить его на сумму из чисел которые являются степенными формами степени счисления например 64 в 10 c/c = 2 в 6 степени =1000000 в 2c/c

делите (в цикле) число на основание системы счисленияс помощью "mod", пока число не обнулится, и прописывете варинты, например в 16 так примерно
while (a<>0) do begin
b:= a mod 16;
a:=a div 16;
case b of
10: write('A);
11: write('B');
12:write ('C');
13:write('D');
14: write('E');
15:write('F');
else write(b);
end;