Mine

program lab_db;
uses crt;
type 
   rec = record	
	    a : string;
	    b : integer;
	 end;
var 
   db	: file of rec;
   key	: char;
   add	: rec;
   disp	: rec;
   
begin
   assign(db,'db.dat');
   rewrite(db);
   repeat
      if keypressed then begin
	 key := readkey;
	 case key of
	   '0' : begin
	      clrscr;
	      writeln('bye bye');
	   end;
	   '1' : begin
	      clrscr;
	      writeln('Add');
	      readln(add.a,add.b);
	      rewrite(db);
	      write(db,add);
	      close(db);
	      writeln('ok');
	   end;
	   '2' : begin
	      clrscr;
	      writeln('Display');
	      reset(db);
	      read(db,disp);
	      writeln(disp.a,disp.b);
	   end;
	 end; { case }
      end;
   until key = '0';
   close(db);
end.