function  pword(s:string):boolean;

  begin
 If s[1] in ['a','e','y','u','i','o','j']     Then
 begin
 If s[length(s)] in ['a','e','y','u','i','o','j']  then
 pword:=true
 else
 pword:=false;
 end
 else pword:=false;
 end;