-.-'

Финиш! Я выздоровел и сразу сделал.

program ex1;
var n, m, l, i : integer;
    s, s1 : string;
    s2 : char;
begin
     readln (n);
     s1:='';
     repeat
           s:='';
           m:=n mod 16;
           if m>9 then
           case m of
                10 : s:='A';
                11 : s:='B';
                12 : s:='C';
                13 : s:='D';
                14 : s:='E';
                15 : s:='F';
           end
           else
           str (m, s);
           s1 := s1 + s;
           n:=n div 16;
     until n=0;
     l:=length(s1);
     for i:=1 to l div 2 do
     begin
         s2:=s1[l-i+1];
         s1[l-i+1]:=s1[i];
         s1[i]:=s2;
     end;
     writeln (s1);

end.

Ваш, все же что-то делающий, автор