ПОМОГИТЕ С ИНФОРМАТИКОЙ 20 БАЛЛОВ!!!!!!!!!Ввести c клавиатуры массив из 5 частей,

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] lt; 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 gt; s then
begin
d:=j-s;
writeln('положительных больше на ' + d);
end
else
begin
b:=s-j;
writeln('отрицательных больше на ' + b);
end
end
end.