Обработка символьных данных и строк Опции

[Kiass]

Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: слово совпадает с конечным отрезком латинского алфавита (z, yz, xyz и т.д.).

[Lapp]

М

Просьба уважать Правила Форума (п.6) Заголовок темы отредактирован

Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: слово совпадает с конечным отрезком латинского алфавита (z, yz, xyz и т.д.).

Kiass, ты забыл задать вопрос. С чем у тебя затруднения? показывай, что сделал, и говори, что не получается.

[Rian]

С чем у тебя затруднения? показывай, что сделал, и говори, что не получается.

видимо не знает с чего начать)
60% решения

var
st,abc,sub,first:string;
i,x:integer;
begin
first:='';
abc:='abcdefghijklmnoprstvxyz';
st:=' xyz xvn dfghnv klmn rthrt xz xyz abc .';

for i:=1 to length(st) do
  if (st[i]<>' ') and (st[i-1]=' ')  then begin
    for x:=i+1 to length(st) do
      if  st[x]=' '  then  begin
        sub:=copy(st,i,x-i);
...

[Kiass]

Теперь вопрос состоит в последующих 40 % решения

[Rian]

Теперь вопрос состоит в последующих 40 % решения

и какие действия должна делать эта часть?