Считать текст из файла Input.txt и вывести в файл Output.txt все предложения в обратном порядке

uses crt;
const rz=['.','?','!'];//разделители концов предложений
var f,g:text;
    s:string;
    s1:array[1..100] of string; //массив предложений
    n,i,j:integer;
    c:array[1..10]of char;//массив разделителей предложений
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g); 
j:=1;//начинаем считать предложения
while not eof(f) do
   begin
     readln(f,s);
     for i:=1 to length(s) do
     if s[i] in rz then//если конец
        begin
          j:=j+1; //добавляем
          c[j-1]:=s[i];//запоминаем разделитель
        end
     else s1[j]:=s1[j]+s[i];//если не конец, записываем предложение в массив
    end;
close(f);
for i:=j-1 downto 1 do //с конца, одно предложение(последнее) пустое, убавляем
   begin
      write(g,s1[i],c[i]);//записываем в файл предложение и конец
      write(s1[i],c[i-1]);//это просто для контроля на экран, можно убрать
   end;
close(g);
readln