Сделать через функцию

[lilywka]

дано строки S, S1 и S2. Заменить в строке S первое вхождение строки S1 на строку S2
вот я ее просто написала. мне надо ее сделать через функцию.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;
var
S2,S1,S:String;
temp:integer; 
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
Writeln('Введите строку S');
readln(S);
Writeln('Введите строку S1');
readln(S1);
Writeln('Введите строку S2');
readln(S2);
temp:=pos(s1,s); 
Delete(s,temp,length(s1)); 
INSERT(S2,S,temp); 
Writeln('Ответ:', S);
Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Stilet]

Функция может выглядеть так:

function aga(c,s1,s2:string):String;var i:integer;begin i:=pos(s1,c);if i<>0 then begin delete(c,i,length(s1));insert(s2,c,i);end; aga:=c;end;

[lilywka]

прости, но я ничего не поняла. можешь объяснить пожалуйста. я просто с функцией пока не очень дружу)

[BDA]

Stilet вынес вот этот кусок кода

temp:=pos(s1,s);
Delete(s,temp,length(s1));
INSERT(S2,S,temp);

в функцию.

Для вызова:

Writeln('Ответ:', aga(c,s1,s2));