Дан целочисленный массив от -20 до 20 размер массива 20. Найти количества отрицательных элементов массива

const  N = 20;var  a: array [1..N] of integer;  k: integer;begin  k := 0;  for var i := 1 to N do   begin    a[i] := Random(41) - 20;    if a[i] < 0 then k := k + 1;    write(a[i]:4);  end;  writeln;  writeln('Отицательных: ', k);end.