Курсовая работа: База даних по приватних підприємствах регіону

writeln(' vid deyatelnosti predpreyatia-',vd);

writeln(' region v kotorom zareg.-',reg);

writeln(' vladelcha predpriyatia-',vl);

writeln(' nomer telefona predpreyatia-',nt);

end

else

writeln('po etomu zaprocu nichego ne naydeno');

end;

end;

readln;

end;

end;

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

procedure ud;

begin

window(1,1,40,25);

clrscr;

if FSearch('bas.bas','d:\')='' then

begin

textbackground(0);

clrscr;

textcolor(132);

writeln('FAIL NE NAYDEN');

readln;

end

else

begin

pamka(1,1,39,25);

window(2,2,38,24);