Массив записей, Делфи

[<Maria>]

Дорогие Программисты, помогите неопытному студенту!!!

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

Я попыталась кое-что зделать, но выбивает ошибку, проверте пожалуйста:

program Project4;
 
{$APPTYPE CONSOLE}
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.

[Don Karleone]

type 
  Book=record
     Author : string[20];
     Pages  : integer; 
     Year   : integer;
  end;

  TKatalog: array[1..3] of Book;

var 
  Katalog_Books: TKatalog;
  Num_Array:1..3;

procedure Input_Data(var mas: TKatalog);
var
  i: byte;
begin
  Writeln('Введите данные о книгах:');
  for i:=1 to 3 do
    with mas[i] do
      begin
            Writeln('Enter a surname of the author:');
            Readln(Author);
            Writeln('   Enter quantity of pages: ');
            Readln(Pages);
            Writeln('  Enter year of the edition: ');
            Readln(Year);
            Writeln
     end;
end;

begin
 for Num_Array:=1 to 3 do
   Input_Data(Katalog_Books);
 Writeln;
 for Num_array:=1 to 3 do 
  If Katalog_Books[Num_Array].Author[1]='A' then
   begin
      writeln(Katalog_Books[Num_Array].Author);
      writeln(Katalog_Books[Num_Array].Pages);
      writeln(Katalog_Books[Num_Array].Year);
   end;
end.

Вроде так.