program pascal membuat text dengan eof

program membuat_text;
uses crt;
var
berkas:text;
kode:string[5];
nama:string[20];
harga:longint;
jumlah:longint;
lagi,jawab:char;
ada:boolean;
begin
assign(berkas,'barang.txt');
{$l+}
reset(berkas);
{$l+}
append(berkas);
lagi:='y';
while upcase(lagi)='y' do
   begin
   clrscr;
   write('kode barang :');readln(kode);
   write('nama :');readln(nama);
   write('harga :');readln(harga);
   write('jumlah :');readln(jumlah);
   writeln(berkas,kode:5,nama:20,harga:10,jumlah:10);
   writeln;
   write('lagi y/t :');readln(lagi);
   end;
   close(berkas);
   end.