Перевод в 16-чную из 10-ной

program p;
uses crt;

var x : integer;


function get16by10(x : integer):string;
const Xbit : array[10..15] of char = ('A', 'B', 'C', 'D', 'E', 'F');
var    str : string;
begin
  str := '';
  while(x > 0) do begin
     if(x mod 16 >= 10) then
        str := Xbit[x mod 16] + str
     else
        str := IntToStr(x mod 16) + str;
     x := x div 16;
  end;
  result := str;
end;

begin
  write(' x = '); readln(x);
  writeln(' x(16) = ', get16by10(x));

end.