Сортировка массива string

var
  s: string;
  tmp: array [1..100] of string;
  
  b, i, q: integer;
  c, temp: string;
 
begin
  i := 1;
  writeln('Введите строку');
  readln(s);
  s := s + ' ';
  while (length(s) > 0) do
  begin
    b := Pos(' ', s);
    tmp[i] := Copy(s, 1, b - 1);
    i := i + 1;
    delete(s, 1, b);
  end;
   //Начало сортировки
  for i := 1 to 10 do
    for q := 1 to 10 do
      if (tmp[i] > tmp[i + 1]) then
      begin
        temp := tmp[i];
        tmp[i] := tmp[i + 1];
        tmp[i + 1] := temp;
      end;
  //Вывод отсортированного массива
  for i := 1 to 10 do
    writeln(tmp[i]);
end.

var
  s: string;
  tmp: array [1..100] of string;
 
  b, i, n, q: integer;
  c, temp: string;
 
begin
  n := 0; //размер массива
  writeln('Введите строку');
  readln(s);
  s := s + ' ';
  while (length(s) > 0) do
  begin
    b := Pos(' ', s);
    n:=n+1;
    tmp[n] := Copy(s, 1, b - 1);
    delete(s, 1, b);
  end;
   //Начало сортировки
  for i := 1 to n-1 do
    for q := 1 to n-1 do
      if (tmp[q] > tmp[q + 1]) then //сортировка неверно
      begin
        temp := tmp[q];
        tmp[q] := tmp[q + 1];
        tmp[q + 1] := temp;
      end;
  //Вывод отсортированного массива
  for i := 1 to n do
    writeln(tmp[i]);
end.

begin
  ReadlnString
  .ToWords
  .Order
  .PrintLines
end.

/// Преобразует строку в массив слов
function ToWords(Self: string; params delim: array of char): array of string; extensionmethod;
begin
  Result := Self.Split(delim, System.StringSplitOptions.RemoveEmptyEntries);
end;

/// Возвращает отсортированную по возрастанию последовательность
function Order<T>(Self: sequence of T): sequence of T; extensionmethod;
begin
  Result := Self.OrderBy(x -> x);
end;