В одномерном массиве А(10) вычислить количество отрицательных элементов, меньших чем k.

Program n1;var a: array[1..10] of integer;k,kol,i: integer;beginrandomize;write('k=');readln(k);kol:=0;write('исходный массив: ');for i:=1 to 10 dobegina[i]:=random(21)-10;write(a[i],' ');if (a[i]<0) and (a[i]<k) then kol:=kol+1;end;writeln;writeln('кол-во эл меньше ',k,': ',kol);end.