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

writeln(' visota-',vis);

writeln('por.nom-',pr_nom);

end;

end;

end;

if p='kalibr' then

begin

clrscr;

writeln('vvedi iskaeiy kalibr');

readln(x);

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

begin

seek(f,i);

read(f,oru);

with oru do

if x=kal then

begin

writeln('model orugia-',med);

writeln('kalibr-',kal);

writeln('ves-',ves);

writeln('dlina-',dl);

writeln('visota-',vis);

writeln('por.nom-',pr_nom);

end;

end;

end;

if p='ves' then

begin

clrscr;