Массивы(Паскаль)!Поправить прогу...

[Cas01]

Дан массив размера N.Вывести его элементы в обратном порядке!


Пытался делать.Исправьте пожалуйста код.Срочно надо!

var
X: array [1..10] of integer;
i:integer;
const n=10;
for i:=10 downto 1 do
writeln(x[i])
begin
  x := a[i];
  a[i] := a[n-i+1];
  a[n-i+1] := x;
end.

е....сделал :

program f1;
uses crt;
const n=10;
var
  ar:array[1..n] of integer;
  i,nom,min:integer;
begin
  clrscr;
  randomize;
  for i:=1 to n do
  begin
    writeln('vvedite chislo ',i);
    readln(ar[i]);
  end;
  writeln;
  for i:=n downto 1 do
   write(ar[i],' ');
  readln;
end.

[MyLastHit]

Пытался делать.Исправьте пожалуйста код.Срочно надо!
var
X: array [1..10] of integer;
i:integer;
const n=10;
for i:=10 downto 1 do
writeln(x[i])
begin
x := a[i];
a[i] := a[n-i+1];
a[n-i+1] := x;
end.

Ммм...Это вообще что за код?

const n=10;
var X: array [1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
  write('Vvedite x[',i,'] = ');
  readln(x[i]);
end;
for i:=n downto 1 do
write(x[i],' ');
readln;
end.

[VIK_aka_TOR]

Вот ещё одна нароботочка....

const 
      z = 10;
var 
      x: array [1..z] of integer;
      i,n: integer;
begin
   write('Введите n: ');
   readln (n);
   writeln('Введите значения массива:');
   for i:=1 to n do 
      begin
        write('a[',i,']=');
        readln(x[i]);
      end;
   writeln('Массив в обратном порядке:');   
  
   for i:=n downto 1 do 
      writeln('a[',n-i+1,']=',x[i]);
   end.