iyinet webmaster forumu 2008 seo yarışması

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;