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

[koysara]

Помогите пожалуйста с задачей:
Дано число в двоичной системе счисления.
Нужно перевести его в восьмеричную и шестнадцатеричную системы.
Реализовать это все нужно с помощью модуля.

[Gambler]

FUNCTION BIN2HEX(BIN: STRING): STRING;

FUNCTION SetHex(St: STRING; VAR Error: BOOLEAN): CHAR;

VAR
Ch: CHAR;

BEGIN
IF St = '0000' THEN Ch := '0'
ELSE IF St = '0001' THEN Ch := '1'
ELSE IF St = '0010' THEN Ch := '2'
ELSE IF St = '0011' THEN Ch := '3'
ELSE IF St = '0100' THEN Ch := '4'
ELSE IF St = '0101' THEN Ch := '5'
ELSE IF St = '0110' THEN Ch := '6'
ELSE IF St = '0111' THEN Ch := '7'
ELSE IF St = '1000' THEN Ch := '8'
ELSE IF St = '1001' THEN Ch := '9'
ELSE IF St = '1010' THEN Ch := 'A'
ELSE IF St = '1011' THEN Ch := 'B'
ELSE IF St = '1100' THEN Ch := 'C'
ELSE IF St = '1101' THEN Ch := 'D'
ELSE IF St = '1110' THEN Ch := 'E'
ELSE IF St = '1111' THEN Ch := 'F'
ELSE Error := True;
SetHex := Ch;
END;

VAR
HEX  : STRING;
I    : INTEGER;
Temp : STRING[4];
Error: BOOLEAN;

BEGIN
Error := False;
IF BIN = '0' THEN HEX := '0'
ELSE
BEGIN
Temp := '';
HEX := '';
IF Length(BIN) MOD 4 <>0 THEN
REPEAT
BIN := '0' + BIN;
UNTIL Length(BIN) MOD 4 = 0;
FOR I := 1 TO Length(BIN) DO
BEGIN
Temp := Temp + BIN[i];
IF Length(Temp) = 4 THEN
BEGIN
HEX := HEX + SetHex(Temp, Error);
Temp := '';
END;
END;
END;
IF Error THEN BIN2HEX := '0'
ELSE BIN2HEX := HEX;
END;

во какой вариант нашел.... Самому смешно. Но как говорится раз не себе, значит лишь бы работало.

[Gambler]

function bin2oct(b: string): string;
var
  i: integer;
  r: string;
begin
  while length(b) mod 3 <> 0 do
    b := '0' + b;
  r := '';
  for i := 1 to length(b) div 3 do
    r := r + chr((ord(b[i*3-2]) * 4 + ord(b[i*3-1]) * 2 + ord(b[i*3])) - ord('0') * (7-1));
  bin2oct := r;
end;

гугл помогает всегда.... Надо только с ним подружиться

[koysara]

Спасибо огромное, прога реализована