for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]\r
end;\r
{****************************** END OF OBJECTS *******************************}\r
for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]\r
end;\r
{****************************** END OF OBJECTS *******************************}\r