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

[МистерКо]

Написать программу для перевода чисел из одной системы счисления в другую.
10->16 и 2->8
это две разные программы.
очень срочно нужно! расчитываю на вашу помощь!
если еще и объясните ход решения, буду по гроб признателен!
В Паскале.

[s-andriano]

Воспользуйтесь поиском, эта тема здесь обсуждается каждые 1-2 месяца.

[МистерКо]

Я нашел только из 10-> 16

[МистерКо]

я не могу найти перевод 2->8, нет ни на форуме, ни в гугле...

[s-andriano]

Если поймете, как работает 10->16, легко сможете адаптировать ее для 2->8.

[МистерКо]

Я вот попытался сделать, но все равно не получается.
Он мне ошибку пишет "ошибка преобразования типов"
ладно, я понимаю что складывать два этих типа нельзя , но как тогда пойти в этом месте?

Program jj;
uses crt;
const digits : array [0..7] of char = ('000', '001', '010', '100', '011', '110', '101', '111');{ошибка в этом месте}
var a: longint; res : string; d:0..7; v,l: integer;
begin
writeln ('vvedite chislo v 2 ss');
readln (a);
res := ' ';
while (a<>0) do
begin
d:= a mod 1000;
l:=d;
if l=000 then v:=0 else
if l=001 then v:=1 else
if l=010 then v:=2 else
if l=100 then v:=3 else
if l=011 then v:=4 else
if l=110 then v:=5 else
if l=101 then v:=6 else
if l=111 then v:=7;
res := v+res; {ошибка и в этом месте}
end;
writeln (res);
end.

[Stilet]

http://delphiworld.narod.ru/base/tra..._calculus.html