Будет как раз первый прямоугольник.
Нужно зациклить
field(7,4);
For i:= 1 to 3 do
Begin
...
End;
Где ... Это весь код между(не включительно) field(7,4) и end. Единственное нужно поменять topoint(1,3) на topoint(1 + 2*i,3)
Объяснение:
