Сортировка слов в строке по возрастанию их длины - Turbo Pascal

Формулировка задачи:

var
  s: array[1..10] of string;
  i, j: integer;
  a, b: string;
 
begin
  writeln('введите строку');
  readln(a);
  j := 1;
  for i := 1 to length(a) do
  begin
    b := a[i];
    if b = ' ' then 
      j := j + 1
    else s[j] := s[j] + b;
  end;
  
  for i := 1 to j do
    for j := 1 to j do
      if Length(s[i]) < Length(s[j]) then
      begin
        a := s[i];
        s[i] := s[j];
        s[j] := a;
      end;
  
  writeln('-----------');
  for i := 1 to j do
    write(s[i], ' ');
end.

Необходимо переделать, что бы были процедуры Программа сортирует слова в строке по возрастанию их длины

Решение задачи: «Сортировка слов в строке по возрастанию их длины»

Листинг программы

type
  Arr = array[1..10] of string;
 
var
  s: arr;
  n, i, j: integer;
  a, b: string;
 
procedure Sort(n: integer; var x: arr);
var
  i, j: integer;
  a: string;
begin
  j := n;
  for i := 1 to j do
    for j := 1 to j do
      if Length(x[i]) < Length(x[j]) then
      begin
        a := x[i];
        x[i] := x[j];
        x[j] := a;
      end;
end;
 
begin
  writeln('введите строку');
  readln(a);
  j := 1;
  for i := 1 to length(a) do
  begin
    b := a[i];
    if b = ' ' then 
      j := j + 1
    else 
      s[j] := s[j] + b;
  end;
  n := j;
  writeln(n);
  sort(n, s);
  writeln('-----------');
  for i := 1 to n do
    write(s[i], ' ');
end.

Объяснение кода листинга программы

Создается тип данных Arr, который представляет собой массив строк длиной от 1 до 10.
Создается переменная s типа Arr.
Создаются три переменные n, i и j типа integer.
Создается переменная a типа string.
Вызывается процедура Sort с аргументами n и s.
Выводится приглашение на ввод строки.
Считывается строка с помощью функции readln.
Инициализируется переменная j равной 1.
Запускается цикл for, который проходит по каждому символу строки.
Внутри цикла считывается текущий символ строки и сохраняется в переменной b.
Проверяется, является ли символ пробелом. Если да, то увеличивается значение переменной j на единицу.
Иначе, к каждому символу строки добавляется текущий символ и сохраняется в переменной s[j].
Увеличивается значение переменной j на единицу.
Выводится значение переменной n.
Вызывается процедура sort с аргументами n и s.
Выводится прерывистая линия -----------.
Запускается цикл for, который проходит по каждому элементу массива s.
Выводится значение элемента массива s[i].