На определиние колличества элементов

[Tiny]

дан массив из чисел каких элементов больше минимальных или максимальных. Задача в паскале.

[_-Re@l-_]

x:=0;y:=0;
for i:=1 to n do
begin
       if A[i]>0 then x:=x+1;
       if A[i]<0 then y:=y+1;
end;
if x>y then write('положительных!');
if x=y then write('Одинаково!');
if x<y then write('Отрицательных!');

[Tiny]

спасибо))))