Передача массива записей в качестве параметра в процедуру

const max_size = 50;//максимальное количество работников
 
type list=record
surname:string;
workExperience,salary,yearOfBirth:integer;
end;
 
procedure print(listOfEmplyees:array of list);
var i: integer;
begin
  writeln('');
  writeln('Список работников:');
  for i:=1 to max_size do writeln('Фамилия: '+listOfEmplyees[i].surname +'; Опыт работы: ' +listOfEmplyees[i].workExperience+
  '; Оклад: '+listOfEmplyees[i].salary + '; Год рождения: ' + listOfEmplyees[i].yearOfBirth);
end;
 
procedure add(listOfEmplyees:array of list; surname: string; workExp:integer; salary:integer; year:integer);
var i :integer;
begin
  for i:=1 to max_size do begin
    if listOfEmplyees[i].surname = '' then begin
      listOfEmplyees[i].surname:=surname;
      listOfEmplyees[i].workExperience:=workExp;
      listOfEmplyees[i].salary:=salary;
      listOfEmplyees[i].yearOfBirth:=year;
      break;
    end;
  end;
end;
 
var listOfEmplyees: array[1..max_size] of list; 
i:integer;
begin
  add(listOfEmplyees, 'Васечкин', 3, 6000, 1987);
  add(listOfEmplyees, 'Петров', 4, 8000, 1988);
  add(listOfEmplyees, 'Громов', 1, 3000, 1994);
  print(listOfEmplyees);
end.

arr = array[1..max_size] of list;
procedure print(listOfEmplyees:arr);

procedure add(listOfEmplyees:arr; surname: string; workExp:integer; salary:integer; year:integer);

var listOfEmplyees: arr;