<-HOME  <-FLOWCHART
PROGRAM Number5;
USES crt;
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');
     reset(f);
     while not eof(f) do
	begin
	readln(f,r);
	if r.price>500 then
		begin
		writeln('BOOK CODE: ',r.code);
		writeln('BOOK TITLE: ',r.title);
		writeln('BOOK AUTHER: ',r.auther);
		writeln('BOOK PRICE: ',r.price);
		end;
	end;
      close(f);
writeln('PROGRAM BY MISS ORATHAI JAIYAH 4411063');
END.