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

begin

clrscr;

writeln('vvedi iskaemiy por.nomer');

readln(x);

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

begin

seek(f,i);

read(f,oru);

with oru do

if x=pr_nom 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

end

else writeln('po' ,p,'poisk ne idet');

close(f);

end;

readln;

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

end;

procedure prosm;

var i,j:integer;