Вывод данных(Паскаль)

[Сирокко]

У меня такая проблема: даны массивы , элементы задаются случайно

for i:=1 to n do
begin
A[i]:=random(100)+1;
B[i]:=random(100)+1;
writeln('A(',i,')=',A[i]);
writeln('B(',i,')=',B[i]);
end;

и выводятся на экран друг за другом, чередуясь а мне нужно чтоб в одной части экрана были элементы массива А а в другой элементы В. Как это сделать?
пробовал через gotoxy - не вышло. Буду рад помощи)

[ROMA2PVT]

Ну а в разных циклах не пробовал?

for i:=1 to n do
begin
A[i]:=random(100)+1;
writeln('A(',i,')=',A[i]);
end;
writeln;
for i:=1 to n do
begin
B[i]:=random(100)+1;
writeln('B(',i,')=',B[i]);
end;

[Сирокко]

да нет мне нужно чтобы элементы А были в левой части экрана а элементы В допустим в центре

[ROMA2PVT]

randomize;
for i:=1 to 5 do
begin
A[i]:=random(100)+1;
writeln('A(',i,')=',A[i]);
end;
writeln;
gotoxy(20,1);
for i:=1 to 5 do
begin
B[i]:=random(100)+1;
writeln('B(',i,')=',B[i]);
gotoxy(20,1+i);
end;

[Hacker19_90]

Попробуй так

for i:=1 to n do
begin
A[i]:=random(100)+1;
B[i]:=random(100)+1;
gotoxy(1, i); write('A(',i,')=',A[i]);
gotoxy(10,i); write('B(',i,')=',B[i]);
end;

[ROMA2PVT]

это если в них одинаковое кол-во элементов

[Сирокко]

Огромное спасибо!))