program menambah,melihat file

program fileku;
uses wincrt;
type
brgrec= record
        kdbrg : string [5];
        nmbrg : string [5];
        hrgbrg : integer;
        jumbrg: integer;
        end;
var
rbrg : brgrec;
fbrg : file of brgrec;
vkdbrg: string [5];
lagi, jawab : char;
ketemu : boolean;
begin
assign (fbrg,'barang.dat');
{$I-}
reset (fbrg);
{$I+}
if ioresult <> 0 then rewrite (fbrg);
lagi :='Y' ;
while lagi = 'Y' do
begin
gotoxy (15,1); writeln ('Tambah Data');
gotoxy (5,4); write ('Kode Barang     :  ');
gotoxy (5,6); write ('Nama Barang     :  ');
gotoxy (5,8); write ('Harga barang    :  ');
gotoxy (5,10); writeln ('Jumlah Barang   :  ');
gotoxy (21,4); readln (vkdbrg);
ketemu:= false;
seek (fbrg,0);
while not eof (fbrg) and not ketemu do

begin
read (fbrg,rbrg);
if rbrg.kdbrg = vkdbrg then
   begin
   gotoxy (25,18); writeln ('Data Sudah Ada !');
   readln;
   gotoxy (25,18); writeln ('                ');
   ketemu:= true;
   end;
end;
    if not ketemu then
    begin
      rbrg.kdbrg := vkdbrg;
      jawab := 'T' ;
      while jawab = 'T' do
    begin
      gotoxy (21,6); readln (rbrg.nmbrg);
      gotoxy (21,8); readln (rbrg.hrgbrg);
      gotoxy (21,10); readln (rbrg.jumbrg);
      gotoxy (30,20); write (' Data Telah Benar  (Y/T)?');
      readln (jawab);
    end;
    seek (fbrg,filesize (fbrg));
    write (fbrg,rbrg);
    end;
gotoxy (25,20); write ('Ingin Memasukan Lagi (Y/T)?');
readln (lagi);
end;
close (fbrg);
readln;
donewincrt;
end.