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

writeln('vvedi dlinu');

readln(dl);

writeln('vvedi visotu');

readln(vis);

writeln('vvedi por.nomer');

readln(pr_nom);

seek(f,filesize(f));

end;

write(f,oru);

end;

close(f);

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

end;

procedure udal;

var c:char;

begin

clrscr;

if FSearch('uy.rer','d:\')='' then

begin

writeln('faila ne sushestvuet');

for b:=1 to 25 do

Delay(9999);

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

end

else

begin

assign(f,'d:\uy.rer');

writeln('"y"-ydalit basy');

writeln('"n"-otmena');