Строковый тип данных

[Ehha1234]

решила задачу, условие следующее: Запишите условие истинное, если в записи фамилии «Соколенко» не встречается буква «я».
какое условие первым записываю, то и выполняется, т.е. ложь и истину меняю местами

  program z_1;
  uses crt;
  const
  s='Соколенко';
  var
  i,l:integer;
  begin
  clrscr;
  l:=length(s);
  for i:=1 to l do
  begin
  if s='я'
  then
  writeln ('ist')
  else
  writeln ('loj');
  readln;
  end;
  end.