uses crt;
type qmple=record
      imienazw:string[50];
      adres:string[30];
      tel:longint;
      stos:string[20];
    end;
var
f:file of qmple;
b:qmple;
c,menu:char;
procedure modif;
 begin
      assign(f,'book.inf');
      write('Imie i nazwisko kolegi : ');
      readln(b.imienazw);
      write(b.imienazw,', zamieszkaly : ' );
      readln(b.adres);
      write('Numer telefonu : ');
      readln(b.tel);
      write('Wzrost : ');
      readln(b.stos);
      rewrite(f);
      reset(f);
      write(f,b);
      close(f);
 end;
procedure przeg;
 begin
     clrscr;
     assign(f,'book.inf');
     reset(f);
     read(f,b);
     writeln(b.imienazw);
     writeln(b.adres);
     writeln(b.tel);
     writeln(b.stos);
     readln;
 end;
begin
 clrscr;
 writeln('Chcesz [p]rzegladac dane ,czy [m]odyfikowac dane ?A moze wyjsc... - ESC');
 c:=readkey;
 if c=#109 then
     begin
        repeat
         clrscr;
         writeln('ESC - wyjscie do menu');
         modif;
         until c=27
     end;

 if c=#112 then
    begin
         repeat
         clrscr;
         writeln('ESC - wyjscie do menu');
         przeg;
         until c=#27;
    end;
 if c=#27 then
    begin
        clrscr;
        writeln('Zycze milego dnia - Nail');
        delay(600);
        halt;
    end;


end.