помогите найти решение на Delphi

[Katovski]

Люди, решаю задачу на делфи, простая она, но я то только учусь. Подскажите пожалуйста.
Условие. Даны символы с1, с2 ,... сn. Известно, что первый символ не может быть "!", но среди символов есть обязательно хоть один "!", кроме того должно вывести сообщение присутствуют или нет буквосочетания "но" или "он".

У меня пока получилась ерунда
так:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=Edit1.Text;
if pos ('!', s) > 0
and
pos ('íî', s) or pos('îí',s)
then Label2.Caption:='YES'
else
begin
Label2.Caption:='No'
end;
end;
end.
Помогите пожалуйста.

[Карась]

НичАво не понял.
Нужно просто определить есть ли встроке последовательность символов "но" и "он"? А что там про "!" знак?

[Katovski]

Сначала нужно определить - присутствует ли "!" в строке символов или нет, но он не должен быть первым символом, но должен быть в этой строке. Потом уже программа начинает искать но или он в строке.

[Карась]

Тогда так...

If Edit1.Text[1] = '!' Then Label1.Caption := '"!" - этот элемент является первым символом строки'
Else
  Begin
    If pos('!', Edit1.Text) > 0 Then
      If (pos('но', Edit1.Text) <> 0) Or
         (pos('он', Edit1.Text) <> 0) Then
              Label1.Caption := '"но" или "он" в строке присутствуют'
            Else
              Label1.Caption := '"но" или "он" не найдены.....'
    Else Label1.Caption := 'Элемент "!" в строке не найден';
   End;

[Katovski]

Спасибо, щас попробую

[Katovski]

а вот почему то он ругается и говорит, что он и но не найдены, хотя в строке они присутствуют
ОЙ! все работаетет! вот спасибище! помогли!