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

readln(x);

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

begin

seek(f,i);

read(f,oru);

with oru do

if x=ves 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='dlina' then

begin

clrscr;

writeln('vvedi iskaemou dliny');

readln(x);

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

begin

seek(f,i);

read(f,oru);

with oru do

if x=dl then

begin