Помогите решить задачку на строки в Паскале.

[TakeR]

Задача:
Написать функцию замены в данной строке S подстроки S1 на подстроку S2.

[Vedrus]

Готов помочь, если Вы готовы заплатить за это 10 000руб.

[ADSoft]

а POS() и COPY() уже не катят?

[north]

Вот код:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var s1,s2,s:string ;
p:integer;
begin
  readln(s);
  readln(s1);
  readln(s2);
  p:=pos(s1,s);
  if p>0 then begin
      delete(s,p,length(s1));
      insert(s2,s,p);
      end;
  writeln(s)
end.

[Vedrus]

north, браво! Как это гениально. Вам будет не лишним посетить вот эту тему: http://programmersforum.ru/showthread.php?t=11663

[Vedrus]

Кстати, задача неправильно решена.

[TakeR]

Я бы сам решил, просто бывают в жизни такие ситуации, когда в голову ничего не лезет. А зачёт завтра с утра, поэтому попросил о помощи.

[TakeR]

Норт забыл поблагодарить, спасибо тебе огромное выручил (обещаю учить инфу и помогать по возможности другим)!

[north]

Сообщение от Vedrus

Кстати, задача неправильно решена.

Почему неправильно?