Паскаль. Функции.

[enji4ka]

Здравствуйте, и вновь нуждаюсь в помощи форума!

Задание такое:
writeln('Введите текст, в котором произойдут изменения');
К примеру, 'aabbbcdaabaaa'
writeln('Введите текст,который нужно заменить');
К примеру, 'aa'
writeln('Введите текст, которым нужно заменить');
К примеру,'*'
writeln('Введите позицию, с которой начнется поиск");
К примеру,1
В результате: '*bbbcd*b*a'

Никак не могу сделать такую функцию, выполняющую все данные действия. Пожалуйста, помогите осуществить!)))

[andrewpalkin]

А что ты уже сделал/а ? Можно посмотреть на наработки ?

[Mad_Cat]

function Substitute(x,y,z:string;p:integer):string;
var s1:string;
k:integer;
begin
s1:=copy(x,1,p-1);
delete(x,1,p-1);
while pos(y,x)<>0 do begin
k:=pos(y,x);
delete(x,k,length(y));
insert(z,x,k);
end;
Substitute:=s1+x;
end;

[enji4ka]

Спасибо, большое!!!!