Системы счисления

[IGOR199304]

Народ, помогите!
Есть программа для перевода систем счисления с 10 в 2, 8 и 16. Нужно дописать, чтобы можно было переводить с 2 в 10 и с 8 в 10.

Program NEMESiS ;
Uses
           Crt;
Var
        a, a1, b, c, c1, p1, p2, p3: longint;
        modz: array [0..4096] of byte;
        x, xc, yc: byte;
        hello, author, site, anykey, input1, input2, error: string;


Procedure Pole(Text: string );
Begin
  Write(text);
  TextBackground(green);
  TextColor(red);
  xc:= WhereX;
  yc:= WhereY;
  for x:=0 to 10 do Write(' ');
  GoToXY(xc, yc);
end;


Procedure chis (a11, b11: longint);
Begin
  c := 0;
  while c <= 4096 do
  Begin
    If a11 >= b11 Then
    Begin
      modz[c] := a11 mod b11;
      a11 := a11 div b11;
    End
    else
    Begin
     modz[c] := a11;
      c1 := c;
      c := 4096;
    End;
    Inc(c);
  End;
end;



Begin

  input1:= 'Введите число: ' ;
  input2:= 'Введите систему счисления (от 2 до 16): ' ;
  error:= 'Введеное вами число не принадлежит интервалу целых чисел от 2 до 16' ;
  TextBackground(blue);
  ClrScr;
  TextColor(yellow);
  GoToXY(40-round(length(hello)/2), 12);
  Writeln(hello); TextColor(green);
  GoToXY(40-round(length(author)/2), 13);
  Writeln(author);
  TextColor(lightgray);
  GoToXY(79-length(anykey), 25);
  Writeln(anykey);
  ReadKey;
  TextColor(yellow);
  ClrScr;
  pole(input1);
  ReadLn(a);
  TextColor(yellow);
  TextBackground(blue);
  Writeln('');
  pole(input2);
  ReadLn(b);
  TextColor(yellow);
  TextBackground(blue);
  a1 := a;
  If (b < 2) or (b > 16) Then
  Begin
    ClrScr;
    TextColor(red);
    Writeln(error);
    ReadKey;
    Halt;
  End;
  chis(a, b);
  ClrScr;
  Writeln('Итак, число ', a1, ' в системе счисления ', b, ' выглядит следующим образом: ' );
  c := 0;
  For c := 0 to c1 do
  Begin
    Case modz[c1-c] of
      10: Write( 'A' );
      11: Write( 'B' );
      12: Write( 'C' );
      13: Write( 'D' );
      14: Write( 'E' );
      15: Write( 'F' );
    End;
    If (modz[c1-c] <> 10) And (modz[c1-c] <> 11) And (modz[c1-c] <> 12) And (modz[c1-c] <> 13) And (modz[c1-c] <> 14) And (modz[c1-c] <> 15) Then Write(modz[c1-c]);
  End ;
  Writeln('' );
  ReadKey;
End.