В массиве,состоящем из 10 случайных чисел в промежутке [-20;10],найти: -все отрицательные

Program kek;type mas= array [1..10] of integer;var i,c: integer;a:mas;beginrandomize;for i:=1 to 10 dobegina[i]:=random(30)-20;end;writeln('Итог:');c:=0;for i:=1 to 10 dobeginif a[i]lt;0 then writeln(i,' -Элемент массива является отрицательным, значение которого одинаково:',a[i]);c:=c+1;end;if c=0 thenbeginwriteln('Отрицательные числа в массиве отсутствуют');end;c:=0;for i:=1 to 10 dobegin if a[i]gt;0 thenc:=c+1;end;if cgt;0 thenwriteln('Количество положительных частей массива одинаково: ',c)elsewriteln('Положительные числа в массиве отсутствуют')end.