Дан массив размерностью 10 вычислить количество отрицательных элементов

 var i,min:integer;     a:array[1..10] of integer;begin  randomize;  for i:=1 to 10 do     begin      a[i]:=random(45)-22;      write(a[i],' ');    end;    writeln;  for i:=1 to 10 do     begin      if a[i]<0 then min:= min+1;       end;      writeln('Количество отрицательных элементов:',min);  end.