слово совпадает с начальным отрезком латинского алфавита (a.ab.abc и тд). учесть, что в диапазоне
'a'..'z' могут быть литеры, отличные от латинских.
решение такое
Const st=('abcdefghijklmnopqrstuvwxyz');
Var s,s1,ps:string;
i,j:byte;
b:boolean;
Begin
write('введите строку': ');readln(s);
i:=Length(s);ps:='';
While s[i]<>' ' do
dec(i);
ps:=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<>ps then
Begin
i:=0;j:=0;b:=true;
While (i<Length(s1))and(b) do
Begin
inc(i);
if not (('a'<=s1[i])and(s1[i]<='z')) then inc(j);
if not (s1[i]=st[i-j])and (('a'<=s1[i])and(s1[i]<='z')) then b:=false;
End;
if b then writeln(s1);
End;
End;
End.
вот такую схему нарисовал...
(в прикрепленном файле)
что-то я запутался со стрелками, там два цикла и оператор if вложены