Посчитать количество слов "или" в строке

program n8;
var
s,l,slovo:string;
j,i,k:integer;
begin
writeln('vvedit stroky');
readln(s);
s:=s+' ';
slovo:=' ';
k:=0;
for i:=1 to length(s) do  begin
if pos(' ',s[i])=0 then
slovo:=slovo+s[i]
else begin
if (pos(' ',s[i])>0) then
if slovo='или' then begin
inc(k);
writeln(slovo);
end;
slovo:=' ';
end;
 end;
writeln(k);
end.

k:=0;
for i:=1 to length(s)-3 do
if (copy(s,i,3)='или') and((i=1)or(s[i-1]=' '))and((i=length(s)-3)or(s[i+3]=' ')) then k:=k+1;

var
  s,temp:string;
  i,count:integer;
begin
  writeln('Введите строку...');
  readln(s);
  count:=0;
  for i:=1 to length(s) do
  begin
    if s[i]<>' ' then
      temp:=temp+s[i];
    if (s[i]=' ') or (i=length(s)) then
    begin
      if temp='или' then
        inc(count);
      temp:=''
    end;
  end;
  writeln('Результат: ',count)
end.