Паскаль...Файлы, Одномерные массивы

[МаксимNEWProgramm]

uses crt;
var f,f2:text;
i,j,n,k,l:longint;
begin
assign(f,'......');{-расположение файла F на диске C}
assign(f2,'......');
reset(f);rewrite(f2);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
t:=1;j:=n;
for i:=1 to n div 2 do
begin
t:=a[i];a[i]:=a[j];a[j]:=t;j:=j-1;
end;
for i:=1 to n do
write(f2,a[i]);close(f);close(f2);
readkey;
end.