Скажем, так:
Код:
TYPE
T=Record
Title:String;
Author:String;
Year:Word;
End;
VAR
Book:Array[1..100] of T;
i,N,j:Integer;
BT:String;
BEGIN
Write('How many books? ');
Readln(N);
Writeln('Enter the book data:');
For i:=1 to N do
With Book[i] do
begin
Writeln('Book N ',i,':');
Writeln('Title:');
Readln(Title);
Writeln('Author:');
Readln(Author);
Write('Year of edition: ');
Readln(Year);
Writeln;
end;
Writeln;
Writeln('Title of book for search:');
Readln(BT);
j:=0;
For i:=1 to N do
If Book[i].Title=BT then
begin
Inc(j);
Writeln(j:2,' '+Book[i].Title+' '+Book[i].Author,Book[i].Year:5);
end;
Readln
END.