Ввести строку текста и, удалить последние N слов, содержащих заданную подстроку К раз. Опции

[Fraddy]

Ввести строку текста. Может быть пустая строка или из одних пробелов.
Разделители: пробел ,/?.<;>:”!’*%. Слово- любая последовательность символов,
ограниченная с одной или двух сторон разделителями.
Удалить последние N слов, содержащих заданную подстроку К раз.

[Fraddy]

в чем ошибка?

Код

uses crt;        
const r:set of char=[' ',',','/','?','.','<','>',':',';','"','!',''','*','%'];        
        
var g,s,c:string;        
i,ns:byte;        
F:boolean;        
Begin        
clrscr;        
write('s=");        
readln (s);    
writeln('g=');  
readln(g);        
i:=1;        
F:=true;        
while i<=length(s) then          
{i - начало слова}        
  Begin        
    ns:=i;        
    C:='';        
    while (i<=length(s)) and NOT (s[i] in R) do        
{Проход по слову}        
    Begin        
  if pos(s[i],c)=0 then c:- c+s;        
inc (i);        
end;    
if pos(g,c)>=1 then  
  begin  
    delete(s,ns,i-ns);  
     f:=false;  
    i:=ns-1  
  end;  
  end;  
i:=i+1  
end;  
is f then  
writeln ('no');  
else  
writeln(s);  
readkey  
end.  
end.  

Сообщение отредактировано: Fraddy - 27.12.2007 18:50