Помогите найти ошибку в решении задачи с массивом
 

Задание таково
Array51. Даны массивы A и B одинакового размера N. Поменять местами их содержимое и вывести вначале элементы преобразованного массива A, а затем — элементы преобразованного массива B.
я, короче почти готова, но что-то не получается вывести второй преобразованный массив B.... вот мой код..выводит и первый и второй массив, первый переобразованный...а второй преобразованный не могу вывести((((( ПОМОГИИИТЕЕЕЕЕ))



program array51;
uses crt;
var a,b:array [1..100] of integer;
i,j,tmp,n:integer;
begin
write('введите размерность массивов n= ');
readLn(N);
write('введите массив À: ');
writeLn;
for i:=1 to n do
begin
read (a[i]);
end;
write('введите массив B: ');
writeLn;
for j:=1 to n do
begin
read (b[j]);
end;
write('преобразованный массив À: ');
while (i>=1) do
begin
write(a[i]:3);
dec(i,1);
end;
writeln(a[i]);
end.

Так, прежде всего - подробно и внятно: что нужно сделать с массивами? Как "поменять местами"? Порядок следования элементов в каждом? Элементы друг друга? В общем, пока муть непонятная.
Ваша программа предусматривает ввод элементов обоих массивов, а затем вывод массива А в обратном порядке - от n-го элемента до первого. Вы уверены, что это то, что требуется? Я - нет.