Найти символы сроки)

[Nika_D]

Всё это в строке S. Она дана. Надо выяснить, верно ли, что имеется среди символов этой строки пара соответствующих букв «но» или «он». Помогите пжлст)
Pascal

[execom]

procedure check(st:string;var b:boolean);
begin
b:false;
  for i:=1 to length(st) do
    begin
      if st[i]='н' then if st[i+1]='о' then b:=true;
      if st[i]='н' then if st[i+1]='о' then b:=true;
    end;
end;

Писал прямо сдесь проверять лень....

[puporev]

На всякий случай проверенное.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
Write('s: ');readln(s);
i:=1;
while i<length(s)-1 do
if (i=pos('но',s))or(i=pos('он',s))then
   begin
     writeln('verno');
     readln;
     exit;
   end
else inc(i);
if i=length(s)-1 then
writeln('ne verno');
readln
end.

[Serge_Bliznykov]

puporev, извините, я чего то я не понимаю...
а зачем такие сложности, цикл по i и т.д.
разве один if (причём, который уже у вас написан) эту задачу не решает?!

if (pos('но',s)>0) or (pos('он',s)>0) then
  WriteLn('Верно, есть...')
else
  WriteLn('Нет, не верно.');

и всё...

[puporev]

а зачем такие сложности, цикл по i и т.д.

Полностью согласен. Написал по инерции, ночь уже была, даже не думал.