В одномерном массиве подсчитать количество положительных и отрицательных чисел - Pascal

program pr;
 
var
  a: array [1..100] of integer;
  i, n, coutp, couto: integer;
 
begin
  coutp := 0;
  couto := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21) - 10;
    write(a[i]:3);
  end;
  for i := 1 to n do
  begin
    if a[i] > 0 then
      coutp := coutp + 1;
  if a[i] < 0 then
    couto := couto + 1;
    end;
  writeln;
  writeln('Количество положительных элементов ', coutp);
  writeln('Количество отрицательных элементов ', couto);
end.