Помогите пожалуйста срочно ... за ранее спасибо ! 
Дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)

var s,s1:string; p:integer;beginwriteln('Введите строку:');readln(s);s1:=s+' ';while s1<>'' do  begin p:=pos(' ',s1); if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1)); delete(s1,1,p); end;end.