Listeleme Prosedürü

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ı');
 writeln('-----------     ---------       --------        -----------');
       window(1,3,79,25);
       s:=0;
       for i:=0 to filesize(dosya)-1 do
       begin
            seek(dosya,i);
            read(dosya,kay);
            if kay.f='*' then
               begin
               s:=s+1;
               gotoxy(1,s); write(i+1:3,'.');
               gotoxy(17,s); write(kay.kod);
               gotoxy(33,s); write(kay.isim);
               gotoxy(49,s); write(kay.alisfiyati);
               end;
                   if s>19 then
                   begin
                   gotoxy(20,21);
                   write('Diğer Sayfaya Geçmek İçin Bir Tuşa Basınız');
                   tus:=readkey;
                   s:=0;
               clrscr;
               end;
               end;
               gotoxy(20,21);
               write('Listelenecek Kayıtlar Bitti!');
               tus:=readkey;
               window(1,1,80,25);
               close(dosya);
               end;