Используя один просмотр текстового файла, вывести его строки в обратном порядке

uses crt;
var f:text;
    s:array[1..100]of string;
    i,n:integer;
begin
clrscr;
assign(f,'Stroki.txt');
reset(f);
n:=0;
while not eof(f) do
   begin
     inc(n);
     readln(f,s[n]);//читаем строки в массив
   end;
for i:=n downto 1 do//выводим массив задом наперед
writeln(s[i]);
readln;
close(f);
end.

uses Crt;
const
	n=4; { количество строк }
	
type
	TMass = array [1..n] of string[20]; { объявляем массив }


{ процедура считывания массива из файла }
procedure OpenFile(var Mass: TMass);
var
	i: integer;
	f: text;
	fname: string[20];
begin
	fname:='test.txt';
	assign(f,fname);
	
	{$I-}
	reset(f);
	{$I+}
	
	if IOResult<>0 then begin
		writeln('Error access to the file: the file "', fname, '" not found');
		write('For ending press <Enter>');
		readln;
		halt(1);
	end;
	writeln('File "',fname,'" has opened');
	
	for i:=1 to n-1 do
			Readln(f,Mass[i]);
	Readln(f,Mass[n]);
	
	close(f);
end;

	
VAR
	i: integer;
	mass: TMass;

{ ОСНОВНАЯ ПРОГРАММА }
BEGIN
	ClrScr;
	OpenFile(mass); { открытие и считывание массива из файла }
	
	for i:=n downto 2 do
		writeln(Mass[i]);
	writeln(Mass[1]);
	
	writeln('For ending press <ENTER>:');
	readln;	
END.