qwe

program slawek2;
{$APPTYPE CONSOLE}
uses SysUtils;

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



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

end;

Begin
   write('ile ksiazek dodac? ');
   readln(n);
     wierzch:=NIL;
     k:=0;
     WHILE k<n DO
       begin
          NEW(q);
          q^.wsk:=wierzch;
          wierzch:=q;
          k:=k+1;
          writeln('Podaj autora');
          readln(wierzch^.autor);
          writeln('Podaj tytul');
          readln(wierzch^.tytul);
        end;
     wierzcholek1:=wierzch;
     writeln('stos:');
     WypiszStos;
End.