Pascal-pytanie

[Varcuz]

Witam, mam pewne zadanie i nie mogę sb z nim poradzić. Mianowicie chodzi o to może dam treść zadania. tutaj link:  https://szkopul.edu.pl/problemset/problem/L5YOoRRP0zVbCKZ09CSRI6PA/site/?key=statement

utknąłem na punkcie, kiedy dla 2 wpisuje wszystkie liczby, ale pętla za pierwszym razem dodaje mi do tablicy te liczby które wpisałem, natomiast jeżeli będzie szła drugi raz to podmienia mi tamtą tablice i tym sposobem dla 2 dostaje tylko jedną odpowiedz(dla drugiej kolumny liczb, gdyż ta zamienia liczby z pierwszej na te z drugiej) i pytanie jak zrobić, żeby zapisywało gdzieś np do innej tablicy te cyfry z tablicy po pierwszym wykonaniu pętli a w kolejnym już nie, by były 2 odpowiedz?

załączam także kod

Spoiler

program trzyelementy;
var d,n : integer;
var i, j,g  : integer;
var liczby : Array[0..20000] of Integer;
var liczbyZ : Array[0..20000] of Integer;
var liczbyA : Array[0..20000] of Integer;
begin
readln(d);
for i:= 1 to d do
begin
read(n) ; // 3
       for j:=1 to n do
       begin
       read(liczby[j]);
       end;

end;
for i:= 1 to n do
begin
i:=i+1;
write(liczby);
i:=i+1;
end;
for i:= 1 to n do
begin
write(liczby);
i:=i+1;
 end ;

readln();
readln();

end.

[Adanos]

Masz dwa sposoby:
1. Możesz zrobić tablicę dwuwymiarową, dzięki czemu wczytasz wszystkie wiersze do tablicy.

Kod: [Zaznacz]

var liczby : Array[0..20, 0..1000] of Integer;2. Po wczytaniu danego wiersza od razu wypisujesz odpowiedź.

[Varcuz]

No właśnie nie mogę wypisać odrazu bo w zadaniu jest inaczej, wypróbuję zaraz tablicę dwuwymiarową. Dzięki wielkie za odpowiedź.

Edit.
Udało się. Po chwili kombinowania z tablicą dwuwymiarową zadziałało, jeszcze raz wielkie dzięki