program biblioteka ;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

  Type data1=record
  dzien: 1..31;
  miesiac: 1..12;
  rok:1900..2016;
  end;

type calosc=record
  tytul: string[30];
  druk:data1;
  prawda:string[1]
  end;

type
  tab= array [1..20] of calosc  ;

var
  baza:calosc;
  data:data1;
  l:tab;

  procedure wpisz(var l:tab);
  var i: integer;
    begin
    for i:=1 to 3 do
      begin
        with l[i] do
      begin
        writeln('podaj tytul',i,' ksiazki');
        readln(baza.tytul);
        writeln('podaj date- dzien,miesiac,rok');
        readln(data.dzien);
        readln(data.miesiac);
        readln(data.rok);
        {writeln('czy ksiazka jest podrecznikiem (T,N)');
        readln(baza.prawda); }
        {if (baza.prawda=116) and (baza.prawda=110)
        writeln(poprawne); else
        Writeln(niepoprawne oznaczenie); }
      end;
      end;
    end;
procedure sorttyt(var l:tab);
var i,j:integer;
t:calosc;

         begin
         for i:=1 to 3-1 do
          begin
           for j:=0 to i-1 do
            if l[j].tytul>l[j+1].tytul then begin
            t:=l[j];
            l[j]:=l[j+1];
            l[j+1]:=t;
            end;
          end;
         end;


procedure sortdat(var l:tab);
var i,j:integer;
t:calosc;
            begin
            writeln(' Po sortowaniu datami');
            for i:=0 to 3-1 do
             for j:=0 to i-1 do
              begin
               if l[j].druk.rok>l[i].druk.rok then
               begin
               t:=l[j];
               l[j]:=l[i];
               l[i]:=t;

               end;
              end;
            end;




procedure wys(l:tab);
var
i,a:integer;
begin
for i:=1 to 3 do
 begin
  writeln(' kiazka',i);
with l[i] do
for a:=1 to 3 do
writeln (' tytul :',tytul);
  writeln ('data:',data.dzien,'.',data.miesiac,'.',data.rok);
  {writeln ('Czy ksiazka jest podrecznikiem',prawda); }
 end;
{repeat until keypressed;}
writeln;
writeln ;
end;


begin
  wpisz(l);
  writeln ('przed sortowaniem');
  wys(l);
  sorttyt(l);
  wys(l);
  sortdat(l);
  wys(l);
  write;
  readln;

end.