Cоставить программу, которая переводит ( несколько чисел, пользователь сам решает, когда закончить перевод ) числа из десятичной системы счисления в шестнадцатеричную. с пояснением и саму программу

Var
s:string;
n,a:integer;
begin
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
while n<>0 do
begin
s:='';
while n <>0 do
begin
a:=n mod 16;
case a of 0: s:=a+s;
1:s:=a+s;
2:s:=a+s;
3:s:=a+s;
4:s:=a+s;
5:s:=a+s;
6:s:=a+s;
7:s:=a+s;
8:s:=a+s;
9:s:=a+s;
10:s:='A'+s;
11:s:='B'+s;
12:s:='C'+s;
13:s:='D'+s;
14:s:='E'+s;
15:s:='F'+s;
end;
n:=n div 16;
end;
writeln(s);
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
end;end.