Никак не разберусь почему не работает..

[eoln]

Если я не ошибаюсь, то лексикографическая - это по алфавиту учитывая и вторую и третью и n-ую буквы (символы).

for i:=1 to q-1 do for n:=i+1 to q do
if mas[n]<mas[i] then begin
  slovo:=mas[i];
  mas[i]:=mas[n];
  mas[n]:=slovo;
end;
Writeln('результ:');
for i:=1 to q do
 begin writeln(mas[i]);end;

[CodeExpert]

Спасибо большущее всем кто откликнулся, реально что-то я тупить начал под утро..