Заменить цифру

[makskovalko]

Помогите, пожалуйста, решить задачу!

[BDA]

var
    N, M, k: longint;
    a, b, c: byte;
begin
    readln(N, a, b);
    M := 0;
    k := 1;
    while N <> 0 do
    begin
        c := N mod 10;
        if c = a then
            c := b;
        M := k * c + M;
        k := k * 10;
        N := N div 10;
    end;
    writeln(M);
end.

var
    s: string;
    a, b: char;
    i: integer;
begin
    readln(s);
    a := s[length(s) - 2];
    b := s[length(s)];
    s := copy(s, 1, pos(' ', s) - 1);
    for i := 1 to length(s) do
        if s[i] = a then
            s[i] := b;
    writeln(s);
end.