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