Дан массив размерностью 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.