Функция strtran

[anamnesis]

Выручайте, нужно написать программу из 3 функций, две я написал, а эта даже пониманию не особо поддается.
Помогите пожалуйста.

Функция - STRTRAN(C1, C2, C3: STRING; N1, N2: BYTE): String - возвращает строку, полученную из строки C1. В строке C1 символы, входящие в C2, заменяются соответствующими символами из строки C2. N1 - номер вхождения символа, с которого нужно делать замену. N2 - количество повторов замены.

[anamnesis]

Никто не знает?

[Hacker19_90]

А пример можно?

[anamnesis]

for i:=N1 to length(C1)
n:=pos(C1[i],C2);
if n>0 then C1[i]:=C3[n];
end;

Что-то вроде этого? Я с N2 не совсем понимаю.

[Hacker19_90]

ну может так (писал с потолка)

function strtran(c1, c2, c3: string; n1, n2: byte): string;
var
    i, j, k, pos: integer;
    temp: string;
begin
    temp := '';
    k := 1;
    for i := 1 to n1 do
    begin
        temp[k] := c1[i];
        Inc(k);
    end;
    for i := n1 to length(c1) do
    begin
        if c1[i] = c2[i] then
        begin
            pos := k + n2; 
            for j := k to pos do
                temp[k] := c3[i];
            k := k+n2;
        end
    end;
    strtran := temp;
end;