Перевод целого числа из десятичной системы счисления в шестнадцатеричную

uses crt;
const zn:string[16]='0123456789ABCDEF';//цифры в СС 16
var n:longint;
    s:string;
begin
clrscr;
write('Число в системе 10=');
readln(n);
s:='';
while n>0 do
 begin
  s:=zn[n mod 16+1]+s;//берем остаток от деления на 16 и эту цифру пишем в начало строки
  n:=n div 16;//сокращаем
 end;
write('      В системе 16 =',s);
readln
end.

insert('-',s,1);

If n=0 then s:='0' else s:='';

Program DecHex;
Uses CRT;
Const M: String[16]='0123456789ABCDEF';
Var N: Longint;
    z,S: String;
BEGIN
ClrScr;
Write('N10=');
ReadLn(n);
if n<0 then begin n:=Abs(n); z:='-' end else z:='';
if n=0 then S:='0' else S:='';
While n>0 do begin
S:=M[n mod 16+1]+S;
n:=n div 16;
end;
Write('N16=',z+S+'h');
ReadKey;
END.

##
var num := ReadInteger();
var k : integer; //У отрицательных num отличие только в "-", тут мы его резервируем
if num < 0 then
  k := -1
else
  k := 1;
var fir, sec : string;
if num = 0 then // Это на случай num = 0 
  print('0')
else
while not (num = 0) do begin
  fir := IntToStr(num mod 16); // Нам нужно сложение не чисел, а строк, переводим из int в string
  if fir = '10' then fir := 'A'; // В 16-ричной СС числа от 10 до 15 заменены
  if fir = '11' then fir := 'B';
  if fir = '12' then fir := 'C';
  if fir = '13' then fir := 'D';
  if fir = '14' then fir := 'E';
  if fir = '15' then fir := 'F';
  sec := fir + sec; { Поскольку при адекватном делении мы записываем число
  с конца,то тут мы каждую новую цифру ставим в начало, чтобы не мучаться с массивами
  }
  num := num div 16 // Уменьшаем num, чтобы цикл не был бесконечным
end;
print(sec);