Выяснить имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом. Pascal ABC

[love26]

Выяснить имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом.

…

for i:=1 to length(a) do

begin

x:=copy(a,i,2);

if(x='но')or (x='он') then inc(n);

end;

if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');

[digitalis]

for i:=1 to length(a)-1 do