!!!Переход от одной системы счисления к другой!!! Опции

[Trofimov Artur]

Товарищи!!!
Помогите пожалуйста.
До сессии мне ныжно написать программу перевода числа из одной системы счисления в другую (bin, oct, dec, hex).
Сам почему-то не могу :о( Не получается.
Помогите пожалуйста.

Все должно выглядеть примерно так:
Сначала забается из какой сис-мы ныжно совершить перевод, а потом в какую. Далее выводится результат.
Или так:
Вводится число в определенной сис-ме счисления и выводется его значение в других сис-мах.

[AlaRic]

Из 10 с/с в любую с/с:

Код

Var
 a,b,i,m,n,k : Integer;
 s,s1,s2: string;
Begin
 WriteLn('Введите 10-ное число: ');
 Readln(a);
 WriteLn('Введите основание системы счисления: ');
 Readln(b);
 s:='';s1:='';s2:='';
 i:=1;
 k:=a;
 While  a>0 do
   begin
     m:= a mod b;
     a:=a div b;
     if m>9 then
       case m of
         10: s2:='A';
         11: s2:='B';
         12: s2:='C';
         13: s2:='D';
         14: s2:='E';
         15: s2:='F';
       end
     else
       str(m,s2);
     s:=s+s2;
     i:=i+1;
   end;
 for i:=1 to Length(s) do
   s1:=s1+s[Length(s)-i+1];
 WriteLn('10-ное число ',k,' = ',b,'-ному ',s1);
 ReadLn;
end.