Пользователь заполняет одномерный массив длиной 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.