Подсчитать количество элементов, равных первому отрицательному

begin
  var a:=Arr(SeqGen(100, x -> Random(100)-50));
  var first: integer = integer.MaxValue;
  var count: integer;
  for var i:=0 to a.Length-1 do
  begin
    if first=a[i] then inc(count);
    if (first=integer.MaxValue) and (a[i]<0) then first:=a[i];
  end;
  if first=integer.MaxValue then count:=-1;
  write(count);
end.

const
  size = 20;
  a : array[1 .. size] of integer = 
  (1, 2, 3, 4, -5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, -5, 19, 20);
  
var 
  i, k, first : integer;  
  
begin
  k := -1;
  first := 0;
  
  for i := 1 to size do
  begin
    if a[i] < 0 then if first = 0 then begin first := a[i]; k := 0; end
                     else if a[i] = first then inc(k);
  end;
  writeln(k);
end.

const
  MaxValue = 32767;
 
var
  i: integer;
  l: integer;//размер массива
  a: array of integer;//массив
  f: integer;//первое отрицательное число
  k: integer;//количество отрицательных чисел, равных первому
 
begin
  f:=MaxValue;
  readln(l);
  SetLength(a,l);
  for i:=0 to l-1 do
  begin
    a[i]:=Random(100)-50;
  end;
  for i:=0 to Length(a)-1 do
  begin
    if f=a[i] then inc(k);
    if (f=MaxValue) and (a[i]<0) then f:=a[i];
  end;
  if f=MaxValue then k:=-1;
  write(k);
end.

begin
  var a := ArrRandomInteger(ReadInteger('Размер массива:'), -10, +10);
  a.Println;
  a := a.Where(x->x<0).ToArray;
  if a.Count = 0 then
    WriteLn('Отрицательных нет!')
  else
    WriteLn($'Равных первому отрицательному {a.Count(v->v=a.First)}');
end.