Сортировка по алфавиту

[aerocool]

Как отсортировать массив с известным количеством слов по алфавиту.
Пример:
aebcd
deabce
cazbe

=====>>>> abcde ;abcdee;abcez ??? помогите пожалуйста

[puporev]

Во-первых нужно писать на каком нужно языке, а во-вторых сортируют строки так же как и числа.

[aerocool]

напишите пожалуйста на паскале. просто толком не могу понять сортировку по буквам...(

[casekey]

http://ru.wikipedia.org/wiki/Алгоритм_сортировки

[puporev]

не могу понять сортировку по буквам.

А по буквам Паскаль сам переставляет, вам нужно по словам.

[aerocool]

собственно нужно для http://www.programmersforum.ru/showthread.php?t=222826
хочу отсортировать все по алфавиту и если хоть одно слово равно третьему то инк(n) помоги с сортировкой я пробовал искать но не пошло ;( пожалуйста напиши код на паскале сортировки по алфавиту. ,

[puporev]

var a:array[1..100]of string[20];
     n,i,j:byte;
     s:string[20];
begin
.............
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;
......
end.

[aerocool]

паскаль выдает ошибку(фри 201ую а абц(0евую)) что то про несовместимость массива с его типом... я полный дурак но мучился и пытался разобраться час с лишним напиши пожалуйста полную программу.

[puporev]

напиши пожалуйста полную программу.

Покажи лучше свою, а я поправлю.

[aerocool]

program tretyazadacha;
var
a:array[1..120] of string[20];
n,i,j:byte; k,l,o,p:integer;
s:string[20];
begin
read(k);
for l:=1 to k do
readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
s:=a[i];
a[i]:=a[j];
a[j]:=s; write(s);
for l:=1 to k do
writeln(a[j]);
end;
это только начало.