procedure listeleme;
begin
assign(dosya,'veritabani.dat');
{$I-} reset(dosya); {$I+};
if IOresult<>0 then
   begin
   writeln('Veritabanında Listelenecek Herhangi Bir Kayıt Bulunmamaktadır');
   tus:=readkey;
   halt;
   end;
       clrscr;
 writeln('Ürün Sırası     Ürün Kodu       Ürün Adı        Alış Fiyatı');