const midx := maxx div 2
const midy := maxy div 2

type cart :
record
    m : array 0 .. 778, 0 .. 778 of int
    x : array 0 .. 778 of int
    y : array 0 .. 778 of int
    z : array 0 .. 778 of int
end record

var x, y, z : int
var map : array 0 .. 360 of cart