дан одномерный массив значения элементов которого вводятся с клавиатуры выяснить каких элементов больше положительных или отрицательных и наКак узнать сколько на экран вывести исходный массив И полученный результатПожалуйста посчитайте срочно

const n=10;
var a:array[1..n] of integer;
i,x,y:integer;
begin
x:=0;
y:=0;
Writeln('Введите элементы массива');
for i:=1 to n do begin
    Write('a[',i,']=');
    Readln(a[i]);
    if (a[i]>0) then inc(x);
    if (a[i]<0) then inc(y);
end;
writeln (a);
if (x>y) then write('Положительных больше');
if (x<y) then write('Отрицательных больше');
if (x=y) then write('Количество отрицательных и положительных равно');
end.