Строки.....

[JiLiYa]

Есть такая вот задачка...Дана последовательность слов. Напечатать те слова последовательности,которые отличны от последнего слова и удовлетворяют свойству:слово совпадает с начальным отрезком латинского алфавита (aab,abc,abcd,...)

Вот примерно что-то должно быть,наверно так....

program ex1;
var str,abc:string;
mastr:array[1..20] of string;
i,k,j,n:integer;
begin
writeln('napechatat slova otlitchnie ot poslednix i sovpadautchie s pervimi bukvami alphavita');
write('vvedite kolitchestvo slov ');
readln(k);
abc:='abcdefghijklmnopqrstuvwxyz';
for i:=1 to k do
begin
write('vvedite ',i,' slovo ');
readln(mastr[i]);
end;
for i:=1 to k-1 do
if mastr[i]<>mastr[k] then
begin
n:=1;
str:=mastr[i];
for j:=1 to length(str) do
if str[i]=abc[i] then
begin
n:=n+1;
if n=length(str) then writeln(str);
end;
end;
readln;
end.


Не могу понять,как реализовать это правило,по которому сравниваются слова....(aab,abc,abcd,...) вот это,честно говоря,не допонимаю как-то...Помогите кто может? Заранее благодарю)

[alex_fcsm]

uses crt;
var s,s1,sub:string;
    i,j,m,n:integer;
    a:array[1..100] of string;
    flag:boolean;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;
for i:=1 to n-1 do
 if a[i]<>a[n] then
  begin
   flag:=true;
   for j:=1 to length(a[i]) do
     if a[i][j]<>chr(96+j) then flag:=false;
   if flag then write(a[i],' ');
  end;
writeln;
end.

[JiLiYa]

Большое спасибо,поняла)))