Конструкция If In для массивов типа string

if s in ar1 then inc(i)

function Rav(s:string; as1:array of string):boolean;
var i:integer;
 begin
  for i:=0 to (length(as1)-1) do
   begin
    if as1[i]=s then
     begin
      result:=true;
      exit;
     end
    else result:=false;
   end;
 end;

function Rav(s : String; as1 : array of String) : Boolean;
var
  I : Integer;
begin
  Result := False;
  for I := 0 to High(as1) do // или for I := 0 to Length(as1) - 1 do
  begin
    if as1[I] = s then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

pprocedure TForm1.Button16Click(Sender: TObject);
begin
 
end;
 
rocedure TForm1.Button17Click(Sender: TObject);
begin
 
end;

if np=7 then
  begin
   setlength(a1,n7); setlength(a2,n7); setlength(a1,n7);
   for i:=0 to n7-1 do
    begin
     a1[i]:=form3.StringGrid9.Cells[0,i];
     a2[i]:=form3.StringGrid9.Cells[1,i];
     a3[i]:=form3.StringGrid9.Cells[3,i];
    end;
   laba2.ConfOpOfPr(a1,a2,a3);  //вот тут ошибка
  end;

Procedure TLab2.ConfOpOfPr (Post, Sur, Dat: array of string);
var i,n: word;
 begin
  n:=Length(Post);
  SetLength(OperationsOfProject.Confirm, n);
  for i:=0 to n-1 do
   begin
    OperationsOfProject.Confirm[i].Post:=Post[i];
    OperationsOfProject.Confirm[i].Surname:=Sur[i];
    OperationsOfProject.Confirm[i].Signature:=' ';
    OperationsOfProject.Confirm[i].Date:=Dat[i];
   end;
 end;

setlength(a1,n7); setlength(a2,n7); setlength(a1,n7);

setlength(a1,n7); setlength(a2,n7); setlength(a3,n7);

procedure CreatMatr (Matr: [COLOR="Red"]array of array of string[/COLOR]);