Работа с символами.Паскаль

[Андрюха74]

Пожалуйста напишите программу..........Даны символы s1,s2….Известно, что символ s1 отличеен от восклицательного знака и что среди s2,s3...... есть по крайнер мере один восклицательный знак....
пусть s1.....sn-символы данной последовательности, предшествующие первому восклицательному знаку(n=7).Выяснить, имеется ли среди S1......Sn пара соседствующих букв НО или ОН....

[Vikenty]

Помогу в ICQ 612979261

[DoDge_VipeR]

i:=1;
s1:='';
while s[i]<>'!' do begin
s1:=s1+s[i];
inc(i);
end;
if pos ('OH',s1)<>0 then writeln ('Y')
else if pos ('HO',s1)<>0 then writeln ('Y')
else writeln('N');