Массивы записей, Delphi

[<Maria>]

Помогите
Есть задание: создать список книг. Критерий: книги, фамилии авторов которых начинаются на букву А.
Список у меня готов, а вот с критерием не получается
Подскажите что-нибудь !

[.Phoenix]

Представьте Книга.Критерий как строку. Может получится?

[casekey]

несовсем понятно, но все же нужно выбрать из списка книги начинающиеся на А? Или формировать список по этому критерию?
В обоих случаях проверяйте (имя_массива[i].автор[1] = 'A')

[<Maria>]

uses
SysUtils;

type Book=record
Author : string[20];
Pages : integer;
Year : integer;
end;
var Katalog_Books: Array[1..3] of Book;
Num_Array:1..3;

procedure Input_Data;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Enter data about books');
with Katalog_Books[Num_Array] do
begin
Writeln('Enter a surname of the author:');
Readln(Katalog_Books[Num_Array].Author);
Writeln(' Enter quantity of pages: ');
Readln(Katalog_Books[Num_Array].Pages);
Writeln(' Enter year of the edition: ');
Readln(Katalog_Books[Num_Array].Year);
Writeln
end;
end;
procedure Write_Data(Num_Array: integer);
begin
Writeln('The following book');
with Katalog_Books[Num_Array] do
begin
Writeln('Enter a surname of the author: '.Author);
Writeln('Enter quantity of pages: '.Pages);
Writeln(' Enter year of the edition: '.Year);
end;
end;
begin
for Num_Array:=1 to 3 do
Input_Data;
Writeln;
If Katalog_Books[Num_Array].Author[1]='A' then
begin
Write_Data(Num_Array);
end;
end.