Вывести строки начиная с последней и заканчивая первой PASCAL

[Seva4ek]

Есть задание - Написать программу, которая считывает текст из файла и выводит на экран все его предложения в обратном порядке.
Задача достаточно проста, но догадаться как решить не могу)
Всё что получилось это вынимать предложения из текста
Может кто-то что-нибудь подсказать

Program ex;
Const
delimiters = ['.' , '?' , '!'];
len = 80;
Var
in_file:text;
stroka,sentence:string[len];
k,strokalength:word;
file_name:string[20];
exe:string;
Begin {
Readln(File_name); }
Assign(in_file, 'example.txt');
Reset(in_file);
If IOResult > 0 then Halt;
while not Eof(in_file) do
begin
readln(in_file,stroka);
strokalength:=length(stroka);
k:=1;
while k<strokalength do begin
sentence:=sentence+stroka[k];
if stroka[k] in delimiters then begin
insert(sentence,exe,0);
inc(k);
sentence:='';
end;
inc(k);
end;
end;
close(in_file);
writeln(exe);
end.

[Aleksandr H.]

Вот в файле есть текст

Есть задание - Написать программу, которая считывает текст из файла и выводит на экран все его предложения в обратном порядке.
Задача достаточно проста, но догадаться как решить не могу)
Всё что получилось это вынимать предложения из текста
Может кто-то что-нибудь подсказать

Что должна вывести программа в результате?