Побитовые операции

[Unique]

Привет всем. Возникло затруднение в решении задачи:

Дано длинное целое неотрицательное число. Заменить каждую цифру F в шестнадцатеричной записи этого числа цифрой 7.

Кто поможет чем?

пс: язык паскаль)

[Hacker19_90]

Мож так?

program forunique;
uses crt;
var
    chislo: string;
    i: integer;
begin
    clrscr;
    Writeln('Введите число:');
    Read (chislo);
    Readln;
    for i := 1 to length(chislo);
    begin
        if chislo[i] = 'F' then
           chislo[i] := '7';
    end;
    Writeln ('chislo: ', chislo);
    ReadKey;
end.

[Unique]

Сообщение от Hacker19_90

Мож так?

program forunique;
uses crt;
var
    chislo: string;
    i: integer;
begin
    clrscr;
    Writeln('Введите число:');
    Read (chislo);
    Readln;
    for i := 1 to length(chislo);
    begin
        if chislo[i] = 'F' then
           chislo[i] := '7';
    end;
    Writeln ('chislo: ', chislo);
    ReadKey;
end.

Прочитай пожалуйста название темы еще раз)

[|{ot]

var
 i, buf, we, tp: integer;
 
...............

begin

.............
;целое число(в данном случае) = 4байта. 1байт = 2знака в шестнадцатеричной системе. 

we:=15;//we=0fh=0xF
tp:=7;

REPEAT
buf:=i AND we;//выделил текущий символ в шестнадцатеричной системе
if (buf XOR we)=0 then //проверяю на F
  begin
    i:=i AND NOT we;//обнулил текущий символ
    i:=i OR tp;//записал туда 7
  end;

we:=we shl 4;//передвигаюсь на следующий
tp:=tp shl 4;

UNTIL we=0;//ушёл за приделы разрядности числа.. =0

................

end.

Где то так... Писал здесь, ошибки уж исправиш, а алгоритм такой..