Циклы Pascal...

[DRGNforce]

(тут такая задачка есть поможете??) Определить все цифры натурального числа n в шестнадцатеричной системе счисления

[DoDge_VipeR]

uses crt;
var a:array[1..20] of longint;
i,k,l,g:longint;
q:integer;
n:real;
m:integer;
str1:string;
begin
{writeln ('vvedite chislo dlya perevoda- ');
readln(n);]}
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 16;
g:=g div 16;
end;
writeln('16ss zapis dannogo chisla: ');
for k:=l downto 1 do
case a[k] of
 10 :write('A');
 11 :write('B');
 12 :write('C');
 13 :write('D');
 14 :write('E');
 15 :write('F');
 Else
write(a[k])
end;
end;
readln;
end.

[DRGNforce]

спасибо Огромное!