Передача массива функции. Комбинированный тип

const n=30;
type data = record 
name: string[30]; 
pol: char;
rost:140..200 
end;
gruppa=array [1..n] of data;
 
function Search_man(var gruppa:mas):boolean;
var
i,j:integer;;
begin
search_man:=false;
for i:=1 to n-1 do
for j:=i+1 to n do 
begin 
    if gruppa[i].pol<>'M' then continue
else 
if gruppa[i].rost=gruppa[j].rost then   
begin
Search_man:=true;
Exit; {выход из функции}
end;
end;

const
  n = 30;
 
type
  data = record 
    name: string[30]; 
    pol: char;
    rost: 140..200 
  end;
  gruppa = array [1..n] of data;
 
function Search_man(mas: gruppa): boolean;
var
  i, j: integer;
begin
  search_man := false;
  for i := 1 to n - 1 do
    for j := i + 1 to n do 
    begin
      if mas[i].pol <> 'M' then 
        continue
      else 
      if mas[i].rost = mas[j].rost then
      begin
        Search_man := true;
        Exit; {выход из функции}
      end;
    end;
end;
 
begin
end.

function Search_man(const mas: gruppa): boolean; { ссылка на mas, менять содержимое запрещено }
function Search_man(mas: gruppa): boolean; { mas -- локальная копия параметра, изменения пропадут }
function Search_man(var mas: gruppa): boolean; { ссылка на mas, изменения видны вне функции }