Задание таково
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.