function slovo(s:string):string;
var n,i:integer; w:string; p:boolean;
begin
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then
w:=w+s[i] else
begin
p:=false;
for n:=1 to length(w)-1 do
begin
if w[n]=w[n+1] then
p:=true;
end;
if p then k:=k+1;
w:='';
end;
end;
функция, помогите исправить |