Вывести в обратном порядке слова строки, оставляя между ними по одному разделительному пробелу

var f : text;
    a : array [1..255] of string;
    s : string;
    i, j : integer;
begin
    assign(f,'input.txt');
    reset(f);
    readln(f,s);
    close(f);
    while(pos('  ', s) <> 0)do
        delete(s, pos('  ',s), 1);
    i := 0;
    s := s + ' ';
    while(length(s) > 0)do
    begin
       i := i + 1;
       a[i] := copy(s, 1, pos(' ', s) - 1);
       delete(s, 1, pos(' ', s));
    end;
    assign(f, 'output.txt');
    rewrite(f);
    for j := i downto 1 do
    begin
       write(f, a[j]);
       if j > 1 then
           write(f, ' ');
    end;
    writeln(f);
    close(f);
    readln();
end.

var f:text;
    s,s1:string;
    i,j,k:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,s);
close(f);
assign(f,'output.txt');
rewrite(f);
s:=s+' ';
i:=length(s)-1;
k:=0;
while i>0 do
if(s[i]<>' ')and(s[i+1]=' ') then
 begin
  s1:='';
  j:=i;
  inc(k);
  while(j>0)and(s[j]<>' ') do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  if k=1 then write(f,s1)else write(f,' ',s1);
  i:=i-length(s1);
 end
else dec(i);
close(f)
end.

{$mode objfpc}
uses Classes, StrUtils;
var 
  s : string;
  i : integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('input.txt');
 
    s := Text;
    Clear;
    Delimiter := ' ';
 
    for i := WordCount(s, StdWordDelims) downto 1 do 
      Add(ExtractWord(i, s, StdWordDelims));
    Text := DelimitedText;
    SaveToFile('output.txt');
  finally
    Free;  
  end;
end.