@@)WoLF(@

Все слова в которых буква "a" более 2-ух раз удалить из текста. Выведите на экран. Если такого символа нет, то выведите соответствующее сообщение

вот код!
uses crt;
var s,s1,s2:string;
n,i,j,k,p:byte;
begin
clrscr;
writeln('Введите последовательность слов, разделенных пробелами');
readln(s);
if (pos('a',s)=0)and(pos('а',s)=0)then{одна а в латинской раскладке, вторая в русской}
begin
write('В тексте нет букв а!');
readln;
exit;
end;
s2:='';
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
begin
k:=i;s1:='';
while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
begin
s1:=s1+s[k];
k:=k+1;{идем вперед}
end;
p:=0;
for j:=1 to length(s1) do
if s1[j] in ['a','а'] then p:=p+1;
if p<3 then s2:=s2+s1; {пишем в новую строку}
i:=i+length(s1);{перепрыгиваем}
end
else
begin
s2:=s2+s[i];{если не слово, пишем и идем вперед}
i:=i+1;
end;
write(s2);
readln
end.

Добавлено через 8 минут
нет а! выполняется супер. А вот когда пише 3 а вподряд, то выводит на экран какую нить букву, причем удаляет даже те где нету 3 а

0