SOS!! Составить задачу подсчета отрицательных элементов из пяти целых чисел(в Pascal ABC.Net)

const n=5;vara:array [1..n] of integer;i,k:integer;beginfor i:= 1 to n doa[i]:= Random(-10,10);writeln(a);for i:=1 to n doif a[i] < 0 then k:=k+1;writeln('Отрицательных элементов: ',k)end.Пример:[0,1,-1,-4,-8]Отрицательных элементов: 3