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

[puporev]

program tretyazadacha;
var a:array[1..120] of string[20];
    n,i,j:byte;
    s:string[20];
begin
read(n);
for i:=1 to n do
read(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;
 end;
for i:=1 to n do
writeln(a[i]);
end.

[aerocool]

сделал в точности как ты но задача до сих пор просто выдает левые значения
допустим вместо того чтобы после cba писать abc он так же пишет cba

[aerocool]

Help кто нибудь пожалуйста

[puporev]

Послушай, горе луковое, у тебя какой Паскаль?

[parhomiy]

Как на счет помощи в доработке программы