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

var a: array [1..10] of integer;
    i, k, m: integer;
begin
  writeln('Введите массив:');
  k := 0;
  m := 1;
  for i := 1 to 10 do
    begin
      write('a[', i:2, '] = ');
      readln(a[i]);
      if (m >= 0) and (a[i] < 0) then m := a[i];
      if (m < 0) and (a[i] = m) then inc(k)
    end;
  if k = 0
    then writeln('Массив не содержит отрицательных чисел.')
    else writeln('Количество чисел, равных первому отрицательному (', m, '): ', k);
  readln
end.

var a: array [1..10] of integer;
    k, m: integer;
 
procedure true_la_la(n: integer);
begin
  if n <= 10
    then begin
      write('a[', n:2, '] = ');
      readln(a[n]);
      if (m >= 0) and (a[n] < 0) then m := a[n];
      if (m < 0) and (a[n] = m) then inc(k);
      true_la_la(n + 1)
    end
end;
 
begin
  writeln('Введите массив:');
  k := 0;
  m := 1;
  true_la_la(1);
  if k = 0
    then writeln('Массив не содержит отрицательных чисел.')
    else writeln('Количество чисел, равных первому отрицательному (', m, '): ', k);
  readln
end.