Напишите программу которая в последовательности натуральных чисел определяет количество чётных отрицательных чисел. В ПАСКАЛЕ, заранее спасибо)

var
  i, n: integer;
  s: byte;
  arr: System.Collections.Generic.Listinteger> := new System.Collections.Generic.Listinteger>();
  
begin
  write(Enter a number of values: );
  readln(n);
  for i := 0 to (n - 1) do
  begin
    arr.Add(random(-50, 50));
    write(String.Format([{0}] => {1}; , i, arr[i]));
    if ((arr[i]       s += 1;
  end;
  writeln(System.Environment.NewLine, > , s);
end.