Курсовая работа: Довідкова система по кримінальному праву

case i of

0:i:=4;

5:i:=1;

end;

case i of

1:begin

if h=#13 then

pol;

window(1,1,40,25);

textbackground(0);

clrscr;

menu_1(s1,s2,s3,s4,0,15,15,15);

menu_2(i,5,0,0,0,15,s1);

end;

2:begin

if h=#13 then

dov;

window(1,1,40,25);

textbackground(0);

clrscr;

menu_1(s1,s2,s3,s4,15,0,15,15);

menu_2(i,0,5,0,0,15,s2);

end;

3:begin

if h=#13 then

del;

window(1,1,40,25);

textbackground(0);

clrscr;