как переделать, с использованием процедур?

[Ostapov]

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.

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

[JUDAS]

program xxx;

procedure Sort;
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;

begin
   Sort;
end.

какой вопрос, такой ответ

[Ostapov]

аххах, ну это конечно круто), но мне бы по отдельности, процедуру сортировки и ввода

[type_Oleg]

Вот так

type tArr=array[1..10] of string;

function fInput:tArr;
begin
 // ввод
end;
procedure pSort(var ar:tArr);
begin
 // сортировка
end;

var  
 s: tArr;
 i:Integer;
begin
  s:=fInput;
  pSort(s);
  writeln('-----------');
  for i := 1 to 10 do
    write(s[i], ' ');
end.