Контрольная работа: Автоматизований облік власників автотранспорту

ris;

menin (11,4,29,5,7);

i:=1;

punkt (11,4,29,5,4,' Zapolnit');

repeat

newreadkey (key, k);

case k of

72: begin

if i=1 then

p:=4;

if i>1 then

p:=i-1;

end;

80: begin

if i=4 then

p:=1;

if i<4 then

p:=i+1;

end;

end;

i:=p;

if i=1 then

begin

menin (11,4,29,5,7);

punkt (11,4,29,5,4,' Zapolnit');

end;

if i=2 then

begin

menin (11,4,29,5,7);