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

Ответ: const n=10;var a:array[1..n] of integer;i,x,y:integer;beginx:=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.