TYPE
  String = ARRAY [1..80] OF CHAR;
  knjiga = RECORD
             ID:CARDINAL;
         ImeKnjige:String;
         Pisac:String ;
       END;
  knjige = RECORD
              niz : ARRAY [1..1000] OF knjiga;
              brojel: CARDINAL;
           END;