procedure c;
 begin
        clrscr;
        reset(f);
        seek(f,0);
        while NOT EOF(f) do begin
                read(f,k);
                writeln('Autor knihy:',k.autor);
                writeln('Nazov knihy:',k.nazov);
                writeln('Cena:',k.cena);
                writeln('Vydal:',k.vydal);
                writeln('pozicana:',k.pozicana);
                writeln('-------------------------------------------');
                end;
        close(f);
        readln;
        end;