И снова системы счисления Опции

[Дымка]

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

Добавлено: 11.07.05 17:03
и еще, как задать массив чисел, записанных в шестнадцатиричной с/с

[Дымка]

прости...Так было удобнее!!В следующий раз исправлюсь....Ничего не хотела себе присвоить...Правда

Добавлено:
Несовпадение типов!!!!
При использовании функций получилось несовпадение типов.Что можно сделать??

Function Hex2Dec (s:string): longint;{iz 16 v 10}
var
   res,k: longint;
   r,i: integer;
   c: char;
begin
   res := 0;
   k := 1;
   for i := length (s) downto 1 do
   begin
      c := UpCase (s[i]);
      case c of
         'A'..'F': r := ord© - (ord('A') - 10);    { ord © - 55 }
         '0'..'9': r := ord© - ord('0');           { ord © - 48 }
      else break
      end;
      res := res + r * k;
      k := k * 16;
   end;
   Hex2Dec := res;
end;
function Dec2Hex(n: integer): string; {Perevod iz 10-oy v 16-uu}
var
   r: integer; {ostatok ot deleniya 4isla na osnovanie}
   buf: string[1];
begin
   s:='';
   repeat
      r:=n mod 16; {o4erednaya cifra}
      n:=n div 16; {celaya 4ast deleniya}
      if r< 10 then
         buf:=chr(r+48) {chr(48) = '0', chr(49)='1' i t.d}
      else
         buf:=chr(r+55);{chr(65)= 'A', chr(66)='b' i t.d}
      s:=buf+s;
   until (n<16);
   if n<>0 then
   begin
      if n<10 then
         buf:=chr(n+48)
      else
         buf:=chr(n+55);
      s:=buf+s;
   end;
   Dec2Hex:=s;
end;
function stepen(x,n:real):real; {vozvedenie v stepen}
begin
   stepen:=exp(n*ln(x));
end;

Значит так, что я делаю...Сначала ввожу число в 16-ричной с/с и степень в 16-ой с/с, перевожу все это в 10-ую, возвожу в степень, тип получается real , вывожу ответ в 10-ной. но мне еще нужен ответ и в 16-ричной, поэтому пытаюсь перевести...а для этого нужен integer, что делать?