Курсовая работа: База даних по приватних підприємствах регіону

repeat

newreadkey(e,d);

if d=80 then

p:=p+1;

if d=72 then

p:=p-1;

if p=5 then

p:=1;

if p=0 then

p:=4;

case p of

1: begin

rrr(st1,st2,st3,st4);

window (1,1,40,25);

prig(6,3,14,29);

end;

2: begin

rrr(st1,st2,st3,st4);

window (1,1,40,25);

prig(6,9,14,29);

end;

3: begin

rrr(st1,st2,st3,st4);

window (1,1,40,25);

prig(6,15,14,29);

end;

4: begin

rrr(st1,st2,st3,st4);

window (1,1,40,25);