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

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.