Записать в другой файл числа имеющегося файла в обратном порядке.

[pascal_luzer]

Имеется типизированный файл с тридцатью числами. Записать в другой файл числа имеющегося файла в обратном порядке.

[BDA]

Uses CRT;
var
f1,f2:file of integer;
a,i:integer;
BEGIN
assign(f1,'in.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
for i:=filesize(f1)-1 downto 0 do
begin
	seek(f1,i);
	read(f1,a);
	write(f2,a);
end;
close(f1);
close(f2);
END.