var gd, gm:integer; {smallint //DevPas}