Курсовая работа: Программа эмуляции развития

REPEAT

I:=I+1;

begin

x:=hr[i].getx;

y:=hr[i].gety;

At:=hr[I].DAIAGE;

CTp:=hr[I].DAIZWET;

if (z mod 365)=0 then

BEGIN

at:=at+1; {Happy New Year!}

hr[I].INIT(X,Y,At,CTp);

END;

if at>w then {Old ?}

begin

hr[i].done;

hr[i].init(0,0,0,0);

for j:=i+1 to m do

begin

x1:=hr[j].getx;

y1:=hr[j].gety;

at1:=hr[j].daiage;

ct1:=hr[j].daizwet;

hr[j].done;

hr[j-1].init(x1,y1,at1,ct1);

hr[j-1].show;

end;

hr[m].INIT(0,0,0,0);

m:=m-1;

I:=I-1;