С помощью подпрограммы ввода и вывода записи заполнить массив из 3 записей с полями:ФМО, год рождения, должность,-и вывести его на экран — Pascal(Паскаль)

uses
  Crt;
  
const
  N = 3; {size of array}
  
type
  Rec = record
    Surname, Capacity: string[40];
    Year: integer
  end;
 
procedure WriteRec(a: Rec);
begin
  WriteLn(a.Surname, ' ', a.Year, ' ', a.Capacity)
end;
 
procedure ReadRec(var a: Rec);
begin
  Write('Surname: ');
  ReadLn(a.Surname);
  Write('Year: ');
  ReadLn(a.Year);
  Write('Capacity: ');
  ReadLn(a.Capacity)
end;
 
var
  a: array [1..N] of Rec;
  i: integer;
begin
  ClrScr;
  for i := 1 to N do
    ReadRec(a[i]);
  WriteLn('Array of Rec: ');
  for i := 1 to N do
    WriteRec(a[i]);
  ReadLn
end.