последовательность латинского алфавита (z, yz, xyz и т. д.)

[X-REY]

Прошу вашей помощи по решению задачи:

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом—точка. Напечатать, те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:

совпадает с конечным отрезком латинского алфавита (z, yz, xyz и т. д.);

[TinMan]

Проверять слово на совпадение с концом алфавита можно примерно так:

const
  LatAlph: string= 'abcdefghijklmnopqrstuvwxyz';
.....
  if Pos(w,LatAlph)= 27-Length(w) then <условие выполнено>

Тут проверяемое слово - это переменная w (типа string).
Остальное не заслуживает особого обсуждения..

[konsul777]

что-то у меня не получается таким образом сделать

Const st=('abcdefghijklmnopqrstuvwxyz');
Var s,s1,sk:string;
i,j:byte;
b:boolean;
Begin
write('введите строку: ');readln(s);
if s[Length(s)]='.' then Delete(s,Length(s),1);
i:=Length(s);sk:='';
While s[i]<>' ' do
dec(i);
sk:=Copy(s,i+1,Length(s));
Delete(s,i,Length(s));
s:=s+' ';
While Pos(' ',s)<>0 do
Begin
s1:=Copy(s,1,Pos(' ',s)-1);
Delete(s,1,Pos(' ',s));
if s1<>sk then
begin
b:=true;
if pos(s1,st)=length(st)-length(s1)then b:=true;
end;
if b then writeln(s1);
end;
end.