Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

Var a, b, c, d:integer;

begin

writeln ('Введите 4 числа через пробел') ; readln (a, b, c, d) ;

if (a>0) and (b>0) and (c>0) and (d>0) then writeln ('Все числа положительные')

else if ((a0) and (c>0) and (d>0)) or ((a>0) and (b0) and (d>0)) or ((a>0) and (b>0) (c0) and (b>0) and (c>0) and (d<0)) then writeln ('3 числа положительные')

else if ((a<0) and (b0) and (d>0)) or ((a0) and (c0)) or ((a0) and (c>0) and (d>0)) or ((a0) and (c>0) and (d0) and (b<0) and (c0)) or ((a>0) and (b0) and (d0) and (b>0) and (c<0) and (d<0)) then writeln ('2 числа положительных') ;

else if ((a>0) and (b<0) and (c<0) and (d<0)) or ((a0) and (c<0) and (d<0)) or ((a<0) and (b0) and (d<0)) or ((a<0) and (b<0) and (c0)) then writeln ('1 положительное число')

else if (a<0) and (b<0) and (c<0) and (d<0) then writeln ('Нет положительных чисел') ;

readln

end.