program slawek2;
{$APPTYPE CONSOLE}
uses SysUtils;

TYPE  PElem = ^TElem;
      TElem = RECORD
                autor : string;
                tytul : string;
                wsk :PElem;
              END;
VAR  wierzcholek,wierzcholek1:PElem;
     W,n,k:integer;
     temp,q:PElem;


procedure WypiszStos;
var wierzcholekP,temp:PElem;
begin
     wierzcholekP:=wierzcholek;
     WHILE wierzcholekP<>NIL DO
       begin
          temp:=wierzcholekP^.wsk;
          writeln('autor: ',wierzcholekP^.autor,' tytul: ',wierzcholekP^.tytul);
          wierzcholekP:=temp;
       end;

end;

Begin
   write('podaj ilosc ksiazek');
   readln(n);
     wierzcholek:=NIL;
     k:=0;
     WHILE k<n DO
       begin
          NEW(q);
          q^.wsk:=wierzcholek;
          wierzcholek:=q;
          k:=k+1;
          writeln('podaj autora');
      readln(wierzcholek^.autor);
      writeln('podaj tytul');
      readln(wierzcholek^.tytul);
        end;
     wierzcholek1:=wierzcholek;
     writeln('Utworzono stos:');
     WypiszStos;
End.