Delphi-Help

procedure TForm1.Button1Click(Sender: TObject);

   const n=['!','?',',','.',':',' ',#13,#10,#9];

   var i,q:integer; str,s,s2:string;

begin

q:=0;

s2:='';

str:=edit1.Text;

for i:=1 to length(str) do

if not (str[i]in n) then

s:=s+str[i] else begin

if (length(s)>0)and(length(s2)>0) then

if s2[length(s2)]=s[1] then

inc(q);

if (length(s)>0) then

s2:=s;

s:='';

end;

label1.Caption:= inttostr(q)+' совпадения';

end;