Распечатать текст из файла в обратном порядке предложений и слов

Program Zadacha1;
Procedure LineReverse(var line1:string);
var
    line2 : string;
    i, a:byte;
begin
    a := 0;
    line2 := '';
    for i := length(line1) downto 1 do begin
        if line1[i] = ' ' then begin
            line2 := line2 + copy(line1, i+1, a) + '';
            a := 0;
        end
        else begin 
            a := a + 1
        end;
    line2 := line2 + copy(line1,i,a);
    line1 := line2;
    end;
end;
 
var
    n : integer;
    TextFile, OutputFile : text;
    line : string;
    i,j : byte;
begin
    n := 0;
    assign (TextFile,'D:\temp\input.txt');
    reset(TextFile);
    assign (OutputFile, 'D:\temp\output.txt');
    while not EOF(TextFile) do begin
        n += 1;
        readln(TextFile, line);
    end;
    for i := n downto 1 do 
        begin
            reset(TextFile);
            rewrite(OutputFile);
            for j := 1 to i do begin
                readln(TextFile, line);
                LineReverse(line);
                writeln(OutputFile, line);
            end;
        end;
    close(TextFile);
    close(OutputFile);
end.

program Project1;
 
 
function perevorachivaemstroky(line:string): string;
 
var
word,wordcash,newline:string;
i:byte;
 
begin
  newline:='';
  word:='';
 
  // тут мы просто переворачиваем строку в обратную последовательность
  for i:=Length(line) downto 0 do
  newline:=newline+line[i];
 
  line:=newline;
  newline:='';
 
  // тут мы читаем символ, если это не пробел, то мы добавляем его перед нашей строковой переменной word
  // как только символ это пробел или последняя итерация- тогда в нашу финальную строку newline мы вставляем накопившиеся символы, которые были записаны в word
  For I:=1 to Length(line) do
  If line[i]=' ' then
 begin
   newline:=newline+word+' ';
   word:='';
  end
  else begin
  wordcash:=copy(line,i,1);
  word:=wordcash+word;
  if i=Length(line) then
  newline:=newline+word;
  end;
 
  perevorachivaemstroky:=newline;
 
end;
 
 
var
 
   TextFile, OutputFile : text;
   line : string;
   i,chislostrok : byte;
 
begin
    assign (TextFile,'input.txt');
    assign (OutputFile, 'output.txt');
 
    reset(TextFile);
    Rewrite(OutputFile);
    chislostrok:=0;
 
 
    //считаем количество строк в файле
    while not EOF(TextFile) do begin
      chislostrok:=chislostrok+1;
      readln(TextFile);
    end;
 
    //открываем заново файл
    reset(TextFile);
 
 
    //главный цикл, где мы поочередно читаем chislostrok-1 в пустую, а при последнем чтении
    //результат записываем в текстовый файл output перед этим прогнав его через функцию самописную,
    //которая переворачивает строку
repeat
 
For I:=chislostrok downto 1 do
    begin
       if I=1 then
       begin
       readln(TextFile,line);
       line:=perevorachivaemstroky(line);
        writeln(OutputFile,line);
        line:='';
        reset(TextFile);
       end
       else readln(TextFile);
    end;
 
    chislostrok:=chislostrok-1;
 
 
until chislostrok = 0;
 
 
 
    close(TextFile);
    close(OutputFile);
    writeln(chislostrok);
    readln();
 
end.

  newline := newline+line[i];