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

readln;

end;

{............................}

procedure dov;

var i:integer;b:string;

begin

window(1,1,40,25);

textbackground(14);

clrscr;

window(4,3,37,22);

textbackground(9);

clrscr;

if fsearch('kil.kil','d:\')='' then

begin

textcolor(4);

writeln('faila net');

end

else

begin

clrscr;

assign(f,'d:\kil.kil');

reset(f);

for i:=0 to filesize(f)-1 do

begin

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

writeln(i+1,'.', d.z);

end;

write('vvedi termin- ');read(b);

clrscr;