Пользователь заполняет одномерный массив длиной 10 слов. расположите эти массивы по алфавиту

Program pr1;
var  a: array[1..10] of string;  i, j: integer;  s: string;
begin 
for i := 1 to 10 do   
readLn(a[i]); 
for i := 1 to 10 do   
for j:=1 to 10 do   
if a[j] > a[i] then   
 begin     
s := a[i];     
a[i] := a[j];     
a[j] := s;   
end; 
writeLn('отсортированный массив'); 
for i := 1 to 10 do   
 writeLn(a[i]);
end.