Дурацкие строки

[ТРОЯН=)]

Люди помогите плиз написать задачу,ну или подскажите как, а то я замучился уже((
Даны две строки S1 и S2.Удалить из строки S1 первую,последнюю,все подстроки совпадающие с S2.Если таких подстрок нет то вывести S1 без изменений.

[Vedun]

По условию задачи получается,что даны две строковые переменные:
S1:string[n];
S2:string[k];
Sresult:string;
n и k,в данном случае длинны строк.Sresult- резулитирующая,конечная строка.
Задача решается просто.Необходимы две переменных типа integer (к примеру i и j).

For i:=1 to n do
for j:=1 to k do
 if S1[i]=S2[j] then Sresult[i]:='0';
if S1<>Sresult then  \\проверяется,изменилась ли строка
 begin
  if Sresult[1]=S1[1] then Sresult[1]:='0'; \\убирается первый и последний
  if Sresult[n]=S1[n] then Sresult[n]:='0'; \\элемент
 end;
d:=1;
For i:=1 to n do
 If Sresult[i]<>'0' then
  begin
   Sresult[d]:=Sresult[i]; \\зап.конечный вариант строки без нулей
   d:=d+1;
  end;

Это приблизительное решение задачи. Конечно нужно еще доработатать и не делать просто copy\past (работать не будет)...Вопросы?

[Викдон]

var s1,s2:string;
       i:integer;
begin
 write('Введите первую строку');
 readln(s1);
 write('Введите вторую строку');
 readln(s2);

  for i:=1 to length(s1) do
     if pos(s2,s1)<>0 then
       delete(s1,pos(s2,s1),length(s2));

   write('Итог: ',s1);
   readln;

end.

[ТРОЯН=)]

Спасиб,за помощь только первую задачу я так додумать не смог!!((
А втрорая удаляет строки только если они полностью идентичны!Но всё равно спасибо!