Bibiliotheque

program BIBLIO;
uses wincrt;
type
    livre=record
    TL,NA,NE:string;
    Annee,Page:word;
    end;
tab=array[1..150] of livre;
Var
T:tab;
n:byte;
ad:word;

Procedure saisie ( var n:byte);
begin
    repeat
        write('n=');
        readln(n);
    until (n>=2) and (n<=150)
end;

Procedure remp (var t:tab ; n:byte);
Var i:byte;
begin
    for i:=1 to n do
        Begin
            with t[i] do
                begin
                    write('Titre du livre: ');
                    readln(TL);
                    write('Nom Auteur: ');
                    readln(NA);
                    write('Nom Editeur: ');
                    readln(NE);
                    write('Année de publication: ');
                    readln(annee);
                    write('Nombre de page: ');
                    readln(page);
                end;
        end;
end;

Procedure aff (T:tab ; n:byte ; ad:word);
var i:Byte;
begin
    Write('Saisir une année de publication: ');
    readln(ad);
    for i:=1 to n do
        begin
            with t[i] do
                begin
                    if (annee=ad)
                    then
                    begin
                     writeln(TL);
                     writeln(NA);
                     writeln(NE);
                     Writeln(page);
                    end;
             end;
        end;
end;







begin
saisie(n);
remp(T,n);
aff(T,n,ad);
end.