Pascal. Одномерный массив.

[Sendddd]

Добрый вечер! Не хотел создавать новую тему, но поиск не дал результатов.
В программе не получилось реализовать только действие, при котором пользовательский одномерный массив повернуть "задом на перед", т.е. если в нем 4 элемента, то четвертый будет первым, третий вторым и т.д. Требуется выполнить это с помощью цикла с предусловием ("While").

Вот часть программы, при которой она будет вполне самостоятельная.

Uses Wincrt;
Var i,n:integer;
A:array[1..1000] of real;

Begin Writeln('Введите размерность массива');
Readln(n);
For i:=1 to n do
Begin
Writeln('Введите элемент');
Readln(A[i]);
End;
For i:=1 to n do
Begin
?
End;
For i:=1 to n do
Begin
Writeln(A[i]:5:2);
End;
End.

Заранее благодарен.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to N div 2 do begin 
    loc:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=loc;
  end;

странное у вас понятие о while

i:=1;
while i<= n div 2 do 
begin
 loc:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=loc;
inc(i);
end;

[Sendddd]

Премного благодарен! Все работает. Спасибо за оперативный ответ.

P.S. Такое понятие о While я получил в школьной программе Прошу прощения, если оно является ложным.