Паскаль. Помогите с задачей. Надо поменять 1 элемент с последним в одномерном массиве, 2 с предпоследним и так далее

Надо поменять 1 элемент с последним в одномерном массиве, 2 с предпоследним и так далее. Где у меня ошибка?
var n,i,v:byte;
t:real;
a:array[1..20] of real;
begin
writeln('kolishestvo elementov=');
readln(n);
writeln('vvedite elementi:');
for i:=1 to n do
readln(a[i]);
v:=0;
for i:=1 to n do begin
t:=a[i];
a[i]:=a[n-v];
a[n-v]:=t;
v:=v+1
end;
writeln;
for i:=1 to n do
writeln(a[i]);
end.