var s : array of string := ('aojangweng', 'jengjweng', 'iasiofeqoi', 'aeguwbg');
begin
  for var i := 0 to s.Count-1 do
  begin
    if s[i].StartsWith('a') then continue;
    writeln(s[i]);
  end;
end.