Pascal.заменить последовательность и подсчитать число замен.

[kelly]

В заданном тексте заменить последовательность xi на ai и подсчитать число произведенных замен.


никак не получается(.подскажите, что еще писать в выводе.

[Mad_Cat]

procedure StrRep ( var Data:string; old:string;New:string; var count:integer);
var pp:integer;
buf:string;
begin
count:=0;
buf:='';
while pos(old,Data)<>0 do
begin
pp:=pos(old,Data);
Delete(data,pp,length(old));
Insert(new,data,pp);
inc(count);
buf:=buf+copy(data,1,pp+length(new)-1);
delete(data,1,pp+length(new)-1);
end;
Data:=buf+data;
End;