система счисления с 2 в 16

[never smile]

переход с двоичной системы счисления в шестнадцатеричную
я сделал вот так
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n:real;

a,b,c,d:word;
begin
writeln('vvedite chislo v sisteme 2:');

d:=n;
a:=1;
b:=1;
writeln('vashe chislo v 16 sisteme:');
writeln;
repeat
begin
d:=d div 10000;
a:=a*10000;
if a=10000 then c:=n mod a else
begin
b:=b*10000;
c:=n mod a div b;
end;
if c=0 then write('0') else
if c=1 then write('1') else
if c=10 then write('2') else
if c=11 then write('3') else
if c=100 then write('4') else
if c=101 then write('5') else
if c=110 then write('6') else
if c=111 then write('7') else
if c=1000 then write('8') else
if c=1001 then write('9') else
if c=1010 then write('A') else
if c=1011 then write('B') else
if c=1100 then write('C') else
if c=1101 then write('D') else
if c=1110 then write('E') else
if c=1111 then write('F') else
writeln('nevernoe chislo!')
end;
until d=0;
readln;
end.

она то роботает
но потом меня просветили в том что ето нужно делать стрингом бо она немного не так роботать будет
типа n:string[32];
а так то не могу почему то додумать подкиньте идеи..пжл..

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

А все идеи по элементарным вопросам - у "Студентов", то бишь новичков.
Вам сюда пока рановато.