<-HOME  <-FLOWCHART
PROGRAM Number7;
USES crt;
CONST max=9999;
TYPE tr=record
         code:integer;
         title:string;
         auther:string;
         price:integer;
         end;
VAR f:file of tr;
        r:tr;
BEGIN
      clrscr;
      assign(f,'book.dat');
      rewrite(f);
      write('Input Book Code: ');readln(r.code);
      while r.code<>max do
      begin
	write('Input Book Title: ');readln(r.title);
	write('Input Book Auther: ');readln(r.auther);
	write('Input Book Price: ');readln(r.price);
	write('----SAVE FILE SUCCESSFULLY----');
	write(f,r);
	write('Input Book Code: ');readln(r.code);
      end;
writeln('PROGRAM BY MISS ORATHAI JAIYAH 4411063');
END.