Паскаль. Вычислить y=x^k, где k - количество отрицательных элементов массива а1, а2,…а12, а значение x задано.

var x,k,i:integer; y:real;
a:array[1..12] of integer;
begin
writeln('x= ');readln(x);
for i:=1 to 12 do begin a[ i ]:=random(101)-50; writeln(a[ i ]); end;
for i:=1 to 12 do if a[ i ]