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

for i:=1 to n do

begin

seek(f,filesize(f));

clrscr;

with pr do

begin

write('vvedi nasvanie predpreyatia-');readln(naz);

write('vvedi vid deyatelnosti predpreyatia');readln(vd);

write('vvedi region v kotorom zareg.-');readln(reg);

write('vvedi vladelcha predpriyatia-');readln(vl);

write('vvedi nomer telefona predpreyatia');readln(nt);

end;

write(f,pr) ;

end;

close(f);

end;

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

procedure is;

var s:string;i:integer;

begin

window(1,1,80,25);

textbackground(0);

clrscr;

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

begin

textbackground(0);

clrscr;

textcolor(132);

writeln('FAIL NE NAYDEN');