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

begin

seek(f,i);read(f,d);

if b=d.z then

begin

writeln(d.z,':'); writeln;

writeln(d.s);

end;

end;

close(f);

end;

readln;

end;

{==================}

begin

textmode(co40);

window(1,1,40,25);

clrscr;

s1:='Termini';

s2:='Prosmotr';

s3:='Udalenie';

s4:='Vihod';

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

i:=1;

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

repeat

newreadkey(h,l);

case l of

80:i:=i+1;

72:i:=i-1;