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

writeln('dla poiska po kalibru vvedi-"kalibr"');

writeln;

writeln('dla poiska po vesu vvedi-"ves"');

writeln;

writeln('dla poiska po dline vvedi-"dlina"');

writeln;

writeln('dla poiska po visote vvedi-"visota"');

writeln;

writeln('dla poiska po por.nomeru vvedi-"nomer"');

writeln;

writeln('vvedi po hom budem iskat i nagm. "ENTER"');

readln(p);

if (p= 'model') or (p='kalibr') or ( p='ves') or (p='dlina') or (p='visota') or (p='nomer') then

begin

if p='model' then

begin

clrscr;

writeln('vvedi iskaemou model');

readln(x);

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

begin

seek(f,i);

read(f,oru);

with oru do

if x=med then

begin

writeln('model orugia-',med);

writeln(' kalibr-',kal);

writeln(' ves-',ves);