Нужна помощь с массивами !

[Katmai]

Вобщем есть 1 мас mass1[1..20,1..9].
Поле 20*9 и везде 0 )
2-й mass2[1..4,1..3];
(0,1,0)
(1,1,1)
(0,1,0)
(1,1,1)
нужно вывести mass2 в(/на) mass1 в любом месте где я захочу.
Помогите решить эту проблему !
Спасибо

[psycho-coder]

1) Берешь координаты там где хочешь вывести
2) Рассчитываешь что бы второй массив не вышел за границы первого
3) Выводишь в цикле


Например нужно вывести в 10х5
это будет "вершина" ([0, 0]) второго массива

     123456789
                        
1)  000000000
2)  000000000
3)  000000000
4)  000000000
5)  000000000
6)  000000000
7)  000000000
8)  000000000
9)  000000000
10) 000001000
11) 000011100
12) 000001000
13) 000011100
14) 000000000
15) 000000000
16) 000000000
17) 000000000
18) 000000000
19) 000000000
20) 000000000

// X = 10
// Y = 5
for i := X to X + 4 do
  for j := Y to Y + 3 do
  begin
    mass1[i, j] := mass2[i-X, j-Y];
  end;

Вроде так. Код не проверял, писал сразу на форум

[Katmai]

Спасибо !
А как сделать так что бы mass2 оставался фиксированый и двигался влево и вправо(а вверх в низ не двигался), просто есть функция которая двигает масивы в низ.
Просто пытаюсь из Тетриса сделать гоночки

[psycho-coder]

Тогда из Х сделай константу и не надо двигать его. Если честно, то не вижу тут ничего сложного