Обработка текстового файла. Переставить слова в каждом предложении в обратном порядке и записать их в новый файл

uses crt;
var
     f,f1:text;
     s,s1:string;
     i:integer;
begin
clrscr;
    assign(f1,'c:\file1.txt'); rewrite(f1);
    assign(f,'c:\file.txt'); 
    reset(f);
    while not eof(f) do
    begin
      readln(f,s); s1:='';
      for i:= length(s) downto 1 do
        s1:=s1+s[i];
    writeln(f1,s1:2);end; close(f); close(f1);
    writeln('File zapisan...');
    readkey;
end.

var
s:string;
c:char;
f,f1:text;
k,i:integer;
a:array [1..100] of string;
begin
  assign(f,'C:\tmp.txt');
  assign(f1,'C:\rez.txt');
  reset(f);
  rewrite(f1);
  s:='';   k:=0;
    while not EOF(f) do
      begin
             s:='';  k:=0;
          while not EOln(f) do
            begin
              read(f,c);
                if  ( c >' ') and ( c <> ',') and ( c <> '.') and ( c <> ':') then
                  s:=s+c
                else
                  begin
                    k:=k+1;
                    a[k]:=s;
                    s:='';
                  end;
              end;
           for i:=k downto 1 do
             write(f1,a[i],' ');
            writeln(f1);
           readln(f);
      end;
   close(f);
   close(f1);
    s:='';
   reset(f1);
    writeln;
     while not EOF(f1) do
        begin
          readln(f1,s);
          writeln(s);
        end;
   close(f1);
end.