program program_biblioteka;
uses crt;
type ksiazka=record                      // rekord
                autor:string[40];
                nazwa:string[80];
                rokwyd:integer;
                end;
var liczba, opcja, i: byte;
    biblioteka:array[1..5] of ksiazka;   // tablica rekord¢w


Procedure menu;
begin
  clrscr;
  writeln('Menu');
  writeln('1) Dodaj ksiazke');
  writeln('2) Pokaz ksiazke');
  writeln();
  writeln('0) Wyjscie');
end;

procedure dodaj_ksiazke(nr: byte);
begin
  clrscr;
  writeln('Ksi¥zka o numerze: ',nr);
  writeln();
  writeln('Podaj tytul ksiazki:');
  readln(biblioteka[nr].nazwa);
  writeln('Podaj autora ksiazki:');
  readln(biblioteka[nr].autor);
  writeln('Podaj rok wydania:');
  readln(biblioteka[nr].rokwyd);
end;

procedure pokaz_ksiazke(nr: byte);
begin
  writeln('Ksi¥zka o numerze: ',nr);
  writeln();
  writeln('Tytul ksiazki:        ',biblioteka[nr].nazwa);
  writeln('Podaj autora ksiazki: ',biblioteka[nr].autor);
  writeln('Podaj rok wydania:    ',biblioteka[nr].rokwyd);
  readln;
end;

begin
  clrscr;
  liczba:=0;
  repeat
    menu;
    readln(opcja);
    if (opcja=1)and(opcja<5) then
      begin
        liczba:=liczba+1;
        dodaj_ksiazke(liczba);
      end;
    if (opcja=2) then
      begin
        writeln('Podaj numer katalogowy ksi¥zki: ');
        readln(i);
        pokaz_ksiazke(i);
      end;
    until opcja=0;
end.