Нужно убрать из строки второе, третье и пятое слово

@Kiminaro · Регистрация: 03.04.2016

Author24 — интернет-сервис помощи студентам

Pascal

l:=1;
    while (pos(' ',s2))>0 do begin
      if (l<>2) or (l<>3) or (l<>5) then
      s3:=s3+(copy(s2,1,pos(' ',s2)));
      l:=l+1;
      Delete(s2,1,pos(' ',s2));
    end;
    memo1.lines.add('Строка без 2,3,5 слова: '+s3);

Вот примерно мой код, но что-то не работает, не понимаю что.

@Hikari · 06.10.2016, 20:37

Меня учили так:

Delphi

With TStringList.Create do begin
 Delimiter:=' ';
 DelimitedText:=s2;
 Delete(5);Delete(2);Delete(2);
 s2:=DelimitedText;
 Free;
End;

Это с коленки.

@Puporev · 06.10.2016, 20:54

Pascal

1	Delete(4);Delete(2);Delete(1);

@Kiminaro · 06.10.2016, 21:40 **[ТС]**

Спасибо большое, выручили!

@Kiminaro 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 18
	06.10.2016, 21:40 [ТС]	4
	Спасибо большое, выручили! 0