Вот нада написать программу, гонки с препятсвиями, возникла ситуация с созданием двумерного масива для создания поля препятсвий, сам накидал чуток но чет аж паскаль начал глючить

s1:=0; {Зануление с1}
xa1:=50;
ga1:=0; {Зануление га1}
for j:=1 to f do {Начало двумерного массива, столбец }
begin
ga1:=ga1+1; {накрутка га1 }
xa1:=xa1*ga1; { задание дистанции между столбцами массива,тоесть колонны выхода колец.}
s1:=0; { Зануление с1 }, чтобы узнать, с какими ты значениями работаешь, насколько они велики... Что видим? А вот что:
xa1:=50;
ga1:=0; { Зануление га1 }
for j:=1 to f do
begin
ga1:=ga1+1; { накрутка га1 }
writeln(j:3, xa1:15, ga1:15); { <--- !!! Вот эту !!! }
xa1:=xa1*ga1;
for i:=1 to n do
1 50 1
2 50 2
3 100 3
4 300 4
5 1200 5
6 6000 6
7 36000 7
8 252000 8
9 2016000 9
10 18144000 10
11 181440000 11
12 1995840000 12