Траблы с кодом паскаль (строки)

даны 2 строки s1 и s2 .проверить содержит ли строка s2 символы s1 .Если да удалите из первой строки 2 символа, начиная с четвертого если нет вывести 0;
пример (procedure TForm1.Button1Click(Sender: TObject);

var

st1,st2,st3,st4:string;

i,n1,n2,n3:integer;

begin

st1:=edit1.Text;

st2:=edit2.Text;

st3:=edit3.Text;

n1:=length(st1);

n2:=length(st2);

n3:=length(st3);

st4:=concat (st1 + st2 + st3);

st4:=copy(st1,length(st1),1) + copy(st2,1,5) +copy(st3,length(st3),2);

edit4.Text:=(st4);



end;



end.) // не к этому заданию