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

write('vvedi pravovoy termin- '); readln(d.z);

writeln('vvedi ego znahenie:');readln(d.s);

seek(f,filesize(f));write(f,d);

end;

close(f);

end;

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

procedure del;

var c:char;

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

write('Udalit fail-Y/N ');readln(c);

if c='y' then

begin

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

writeln('Udalen');

end;