Вывести те слова, у которых буквы стоят по алфавиту

[Vovchik!]

Дано массив слов, и в каждом слове от 1 до 8 малых латинских букв. Вывести те слова, у которых буквы стоят по алфавиту

[Abstraction]

Что Вы уже сделали? В чём затруднение?
Если пока не сделано ничего, напишите код, который по символу буквы возвращает её порядковый номер в алфавите.

[Mad_Cat]

const alp='abcdefghijklmnopqrstuvwxyz';
//...........
if pos(slovo,alp)<>0 then {по алфавиту}
else {не по алфавиту}
//...............................

ну а если не строго а через букву и тд

f:=true;
i:=2;
f:=(slovo[i]<slovo[i-1]); 
while (f) and (slovo[i]<slovo[i-1]) and (i<=length(slovo)) do begin
inc(i);
f:=(slovo[i]<slovo[i-1]); 
end;
if f then {по алфавиту}
else {не по алфавиту}

[Vovchik!]

Можно на С. основную часть программы (проверка за алфавитом)?