Паскаль.Задание на строки,не понимаю как его сделать,если кто может,объясните...

[Меффистоф]

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


"Поиск в строке всех вхождений подстрок и их(всех повторений подстроки) на другую последовательность символов"

Если можно напишите пожалуйста прогу и напишите что именно делать нужно,как я понял нужно написать строку,потом подстроку,затем что бы программа нам выдавала сколько раз подстрока повторяется в строке,потом пишем другие символы и нам должно выдать сколько раз подстрока повторяется в этих симвалах...

[Vikenty]

var
OldStr,NewStr: string;
begin
NewStr:=AnsiReplaceStr(OldStr,'Прежняя строка','Новая строка');
end;

[Меффистоф]

Простите,но из этого я мало что понялможете пожалуйста полностью программу написать?))

[Stilet]

Полнее некуда.

 var s,ss,se:string;i:integer;
begin
 s:='hello my world of my pumpkins';
 ss:='my';
 se:='got';
 for i:=1 to length(s) do
  if copy(s,i,length(ss))=ss then begin
   delete(s,i,length(ss));
   insert(se,s,i);
  end;
  write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Sparkman]

procedure zamena(var text:string; old,new:String);
begin
     text := StringReplace(text,old,new,[rfReplaceAll]);
end;

ПС: сделано на Borland Delphi 6