[Janom]

Сам угадаешь на какую задачую это ответ?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  S,M:String;
begin
Memo2.Clear;
M:=Memo1.Text+' ';
S:='';
for i:=1 to Length(M) do
  begin
    if M[i] <> ' ' then
      S:=S+M[i]
    else begin
    if S<>'' then
      if (LowerCase(S[1])<>'с')or(LowerCase(S[Length(S)])<>'с') then
        Memo2.Text:=Memo2.Text+' '+S;
      S:='';
    end;
  end;
end;