Синформатикой 20 ! ввести c клавиатуры массив из 5 элементов, определить преобладание положительных или отрицательных элементов. пример: введите пять чисел: 4 -15 3 -10 14 положительных элементов больше на 1

Const N=5;
var a: array [1..N] of integer;
i,j,s,d,b: integer;
begin

s:=0;
j:=0;
for i:=1 to N do readln(a[i]);
for i:=1 to N do

if a[i] < 0 then
begin
s:=s+1;
end
else
j:=j+1;
if j = 0 then
begin
writeln('положительных чисел нет');
end
else
if s = 0 then
begin
writeln('отрицательных чистел нет');
end
else
begin
if j > s then
begin
d:=j-s;
writeln('положительных больше на ' + d);
end
else
begin
b:=s-j;
writeln('отрицательных больше на ' + b);
end
end
end.