Из данного предложения вычеркнуть слова, содержащие заданную букву.

[ayoka]

Из данного предложения вычеркнуть слова, содержащие заданную букву.

[denisbrain]

Сообщение от ayoka

Из данного предложения вычеркнуть слова, содержащие заданную букву.

{Из данного предложения вычеркнуть слова, содержащие заданную букву.}

uses crt;
const
   SymbolWord :set of char = ['A'..'Z','a'..'z','0'..'9','а'..'я','А'..'Я','-'];

   Function GetTextFromUslovie(s:string;Charvalue:Char):string;
   var x:integer;
       s2:string;
       L:integer;
       start:integer;
       chr:boolean;
   begin
     s2:='';
     l:=length(s);
     start:=1; // начала слова
     chr:=true;
     while x<l do begin
        if s[x] in SymbolWord then begin
        if s[x]=Charvalue then chr:=false;
        s2:=s2+s[x];
        end else begin
           if not chr then begin
            delete(s,start,x-start);
            x:=x-start;
           end;
           chr:=true;
           start:=x;
           s2:='';
        end;
     x:=x+1;
     end;
     result:=s;
   end;
   
begin
    writeln(GetTextFromUslovie('Из данного предложения вычеркнуть слова, содержащие заданную букву.','с'));

end.