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

if c='y' then

begin

erase(f);

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

end;

if c='n' then

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

end;

end;

procedure poisk;

var p,x:string;i:integer;

begin

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);

writeln('mogno iskat po:');

writeln;

writeln('dla poiska po modeli orugia vvedi-"model"');