дан одномерный массив значения элементов которого вводятся с клавиатуры выяснить каких

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]gt;0) then inc(x);
    if (a[i]lt;0) then inc(y);
end;
writeln (a);
if (xgt;y) then write('Положительных больше');
if (xlt;y) then write('Отрицательных больше');
if (x=y) then write('Количество отрицательных и положительных равно');
end.