Выяснить, встречаются ли в строке пары букв «но» или «он» — Pascal(Паскаль)

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.