Перевод из 16 в 10 в 8. Опции

[Гость]

Program My;
var a16,b16,c16,I,summ1,len1,step1,a8,b8,c8,len2,summ2,step2:integer;
tem1,tem2,s:string;

begin
writeln('Vvedite chislo v 16-richnoi sisteme:');
   read(a16);
   str(a16,tem1);
   len1:=length(tem1);
   step1:=1;
   b16:=a16 mod 10;
   a16:=a16 div 10;
   c16:=b16;
   summ1:= summ1+c16;
   step1:=step1*16;
   for I:=2 to len1 do begin
      b16:=a16 mod 10;
      a16:=a16 div 10;
      c16:=b16*step1;
      summ1:=summ1+c16;
      step1:=step1*16;
   end;
writeln('Chislo v 10-icnoi sisteme: ',summ1);
   readln;


   step2:=1;
   str(summ1,tem2);
   len2:=length(tem2);
   a8:=summ1;
   c8:=0;
   for I:=1 to len2+1 do begin
     b8:=a8 mod 8;
     a8:=a8 div 8;
     c8:=c8+b8*step2;
     step2:=step2*10;
   end;
writeln('Chislo v 8-richnoi systeme: ',c8);
   readln;
end.

вот тока я не знаю как задать буквам A-F значение 10-15. не меняя стиля проги.