Дан текстовый файл, содержащий строки. Напечатать слова в порядке убывания

function StrSort(s: string): string;
var
  sl: string;
  A: array[1..64] of string;//массив строк, для хранения слов
  n, i, j: byte;
begin
  s := s + ' ';
  n := 0;
  while Pos(' ', s) > 0 do
  begin
    if Copy(s, 1, Pos(' ', s) - 1) <> '' then 
    begin
      inc(n);
      A[n] := Copy(s, 1, Pos(' ', s) - 1);
    end;
    Delete(s, 1, Pos(' ', s));
  end;
  for i := n downto 2 do
    for j := 2 to i do
      if A[j] > A[j - 1] then
      begin
        sl := A[j];
        A[j] := A[j - 1];
        A[j - 1] := sl;
      end;
  for i := 1 to n do
    s := s + A[i] + ' ';
  strsort := s;    
end;
 
var
  s: string;
  f: text;
 
begin
  assign(f, 'example.txt');
  reset(f);
  while not eof(f) do
  begin
    writeln('Исходная строка: ');
    readln(f, s);
    writeln(s);
    writeln('Отсортированная строка: ');
    writeln(strsort(s));
  end;
  close(f);
end.

function StrSort(s: string): string;
var
  sl: string;
  A: array[1..64] of string;//массив строк, для хранения слов
  n, i, j: byte;
begin
  s := s + ' ';
  n := 0;
  while Pos(' ', s) > 0 do
  begin
    if Copy(s, 1, Pos(' ', s) - 1) <> '' then 
    begin
      inc(n);
      A[n] := Copy(s, 1, Pos(' ', s) - 1);
    end;
    Delete(s, 1, Pos(' ', s));
  end;
  for i := n downto 1 do
    s := s + A[i] + ' ';
  strsort := s;    
end;
var
  s: string;
  f: text;
 
begin
  assign(f, 't1.txt');
  reset(f);
  while not eof(f) do
  begin
    writeln('Исходная строка: ');
    readln(f, s);
    writeln(s);
    writeln('Отсортированная строка: ');
    writeln(strsort(s));
  end;
  close(f);
end.

var f:text;
s:string;
function StrSort(s:string):string;
var A:array [1..100] of string;
s1:string;
i,n,n1:integer;
begin
s:=s+' ';
n1:=length(s);
n:=0;
i:=1;
while (i<=n1) do begin
  s1:='';
  while (s[i]<>' ') do begin
    s1:=s1+s[i];
    i:=i+1;
  end;
  if (s1<>'') then begin
    n:=n+1;
    A[n]:=s1;
  end;
  i:=i+1;
end;
s:='';
for i:=n downto 1 do
  s:=s+A[i]+' ';
  strsort:=s;    
end;
begin
assign(f, 't1.txt');
reset(f);
while not eof(f) do begin
  readln (f,s);
  writeln(strsort(s));
end;
close(f);
end.