Произведение чисел в шестнадцатеричной системе

Помогите пожалуйста! Вообщем, программа должна переводить 2 числа из десятичной системы в шестнадцатеричную, а затем находит произведение, вообщем есть только кусок программы, которая переводит числа из десятичной системы в шестнадцатеричную.


program algoritm;
uses crt;
var i,ost,des,n,l:integer;
s,s1,sbox:string;
begin
{Алгоритм перевода}
Writeln('Введите десятичное число:');
read(des);
n:=0;
i:=0;
s:='';
repeat
inc(n);
inc(i);
ost:=des mod 16;//остаток
des:=des div 16;//целая часть
if ost>=10 then
begin
if ost=10 then s:=s+'A';
if ost=11 then s:=s+'B';
if ost=12 then s:=s+'C';
if ost=13 then s:=s+'D';
if ost=14 then s:=s+'E';
if ost=15 then s:=s+'F';
end
else
begin
s:=s+IntToStr(ost);
end;
until des=0;
{Переворачиваем содержимое}
n:=1;
l:=length(s);
for i:=1 to (l div 2) do
begin
sbox:=s[n];
s[n]:=s[l+1-n];
s[l+1-n]:=sbox[1];
inc(n);
end;
begin
{Алгоритм перевода 2}
Writeln('Введите десятичное число:');
read(des);
n:=0;
i:=0;
s1:='';
repeat
inc(n);
inc(i);
ost:=des mod 16;//остаток
des:=des div 16;//целая часть
if ost>=10 then
begin
if ost=10 then s1:=s1+'A';
if ost=11 then s1:=s1+'B';
if ost=12 then s1:=s1+'C';
if ost=13 then s1:=s1+'D';
if ost=14 then s1:=s1+'E';
if ost=15 then s1:=s1+'F';
end
else
begin
s:=s+IntToStr(ost);
end;
until des=0;
{Переворачиваем содержимое}
n:=1;
l:=length(s1);
for i:=1 to (l div 2) do
begin
sbox:=s1[n];
s1[n]:=s1[l+1-n];
s1[l+1-n]:=sbox[1];
inc(n);
end;
end;
writeln(s,' ',s1);

end.