Курсовая работа: База даних по обліку вогнепальної зброї

clrscr;

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

begin

gotoxy(15,12);

textcolor(132);

writeln('zapisi net');

for b:=1 to 40 do

Delay(9999);

menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);

end

else

begin

assign(f,'d:\uy.rer');

reset(f);

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

begin

seek(f,i);

read(f,oru);

with oru do

begin

writeln('zapis-',i+1);

writeln('model orugia-',med);

writeln(' kalibr-',kal);

writeln(' ves-',ves);

writeln(' dlinu-',dl);

writeln(' visotu-',vis);

textcolor(2);

for j:=1 to 80 do

write(#205);