Заданную последовательность слов переупорядочить в алфавитном порядке… — Pascal(Паскаль)

Program LexOrder;
  Uses Crt;
  Var Words        : Array[1..10] of String; {массив слов}
      Tmp          : String;       {Tmp — вспомогательная переменная}
      i, j, NWords : Integer;      {NWords — количество слов}
BEGIN
  ClrScr;
  Write('Количество слов в тексте — ');
  ReadLn(NWords);
  For i := 1 to NWords do
    begin Write(i, '-ое слово : ');    
          ReadLn(Words[i])
    end;
  For i := 1 to NWords-1 do {лексикографическое упорядочение слов}
    For j := i+1 to NWords do
      If Words[i]>Words[j] then
        begin
           Tmp := Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
        end;
  WriteLn;  WriteLn('О т в е т');
  WriteLn('Лексикографически упорядоченный массив слов:');
  For i := 1 to NWords do Write(Words[i], ' ');
  WriteLn; ReadLn
END.