помогите с задачей на Delphi

[Soilwork]

Задача по строкам .
Дана строка S , содержащая менее чем 150 символов.Выяснить , встречается ли в ней набор символов ая или яя использовать стандартные процедуры и функции в действительных над строками .
P.S заранее спасибо

[WOLFak]

это значит что тут не подойдет

if (pos('ая',s)<>0)or(pos('яя',s)<>0)then
 есть иначе нету

????
использовать стандартные процедуры и функции в действительных над строками --- это какие надо то?

[Soilwork]

if (pos('ая',s)<>0)or(pos('яя',s)<>0)t hen
такое можно

[WOLFak]

тода все вопрос исчерпан???

[Soilwork]

а можно полную программу выложить ? а то я чет не врубился (

[WOLFak]

то есть на делфи с едитом и label???

[WOLFak]

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 s:=form1.Edit1.Text;
 if (pos('ая',s)<>0)or(pos('яя',s)<>0)then
  form1.Label1.Caption:='Есть' else
   form1.Label1.Caption:='Нету';
end;

[Soilwork]

спасибо большое