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

gotoxy(13,24);

write('ZAPOLNENIE');

window(4,1,37,22);

write('Vvedi kol-vo predpreyatiy- ');readln(n);

assign(f,'D:\reg');

rewrite(f);

for i:=1 to n do

begin

clrscr;

seek(f,filesize(f));

writeln('Predpreyatie#',i);

write('Vvedi nas.predpreyatia- ');readln(pr.na);

write('Vvedi reg. v kotor. rasp. predpr-');readln(pr.re);

write('Vvedi vladelca predpr.- ');readln(pr.vl);

write(f,pr);

end;

close(f);

end;

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

procedure viv;

var i:integer;

begin

window(1,1,40,25);

textbackground(3);

clrscr;

pamka(1,23,39,25);

gotoxy(13,24);

write('prosmotr');

window(4,1,37,22);