Помогите с задачей с циклом For i:=N downto 1 do, вроде легкая задачка) Опции

[Lutan]

Элементы заданного массива B(N) переписать в новый массив A(N) в обратном порядке

[Гость]

посидел над программкой.
вот что в итоге получилось:

var
I, N: integer;
A,B:array [1..50] of integer;
begin
Write('Vvedite kol-vo 4isel v massive, N=');
Readln(N);
    for i:=1 to n do
    begin
    write('Vvedite A[',i,']=');
    readln(A[i]);
    end;
    for i:=n downto 1 do A[N-i+1]:=B[i];
    write(B[i],'  ');
    readln;
    end. 

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

var
I, N: integer;
A:array [1..50] of integer;
begin
Write('Vvedite kol-vo 4isel v massive, N=');
Readln(N);
    for i:=1 to n do
    begin
    write('Vvedite A[',i,']=');
    readln(A[i]);
    end;
    for i:=n downto 1 do
    write(A[i],'  ');
    readln;
    end.

кто-нибудь может помочь?)) плз)