Массив из 10 элементов, диапазон от -5 до 20.
Найти 1) кол-во четных отрицательных
2) минимальное среди положительных

Спасибо большое!

var a:array[1..10] of integer; i,k,min:integer; begin k:=0; for i:=1 to 10 do begin read(a[i]); if (a[i] mod 2=0) and (a[i]<0) then k:=k+1; if a[i]>0 then min:=a[i]; end; for i:=1 to 10 do if (a[i]<min) and (a[i]>0) then min:=a[i]; writeln('Количество четных отрицательных чисел ', k); if min=0 then writeln('Положительных элементов нету') else writeln('Минимальный положительный элемент массива ', min); end.