function count_array(array1 : array of string; f: string) : integer;
var i: Integer;
begin
  for i := 0 to length(array1) - 1 do
    begin
      if array1[i] = f then
        begin
          Result := i;
          Break;
        end
      else result := 0;
    end;
end;

var arr: array[0..10] of string;
begin
  arr[0] := 'q';
  arr[1] := 'a';
  arr[2] := '';
  arr[3] := 'd';
  showmessage(inttostr(count_array(arr,'a')));