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

var
    des: word;
 
function shest(des:word):string;
var digit: byte; ch: char;
begin
    while des>0 do begin
        digit:=des mod 16;
        if digit in [10..15] then
            case digit of
            10: ch := 'A';
            11: ch := 'B';
            12: ch := 'C';
            13: ch := 'D';
            14: ch := 'E';
            15: ch := 'F'
            end
        else
            ch := chr(ord('0') + digit);
        shest:=ch+shest;
        des:=des div 16
    end;
end;
 
begin
    write('Desyati4noe chislo: ');
    readln(des);
 
    writeln(shest(des));
 
readln
end.

function shest(des:word):string;
var digit: byte; ch: char;
    res:string;
begin
 res:='';
    while des>0 do begin
        digit:=des mod 16;
        if digit in [10..15] then
            case digit of
            10: ch := 'A';
            11: ch := 'B';
            12: ch := 'C';
            13: ch := 'D';
            14: ch := 'E';
            15: ch := 'F'
            end
        else
            ch := chr(ord('0') + digit);
        res:=ch+res;
        des:=des div 16;
       shest:=res;
    end;
end;