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

begin

textcolor(132);

writeln('FAIL Ne NAYDEN');

end

else

begin

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

reset(f);

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

begin

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

writeln('nasv. predpr.- ',pr.na);

writeln('region raspol.- ',pr.re);

writeln('Vladeletc- ',pr.vl);

writeln;

end;

close(f);

end;

readln;

end;

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

procedure dal;

begin

window(1,1,40,25);

textbackground(3);

clrscr;

pamka(1,23,39,25);

gotoxy(13,24);

write('UDALENIE');