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

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  else if ((a0)and(d>0))or((a0)and(c0))or((a0)and(c>0)and(d>0))or((a0)and(c>0)and(d0)and(b0))or((a>0)and(b0)and(d0)and(b>0)and(c  else if ((a>0)and(b0)and(c0)and(d0)) then writeln(1 положительное число)
  else if (a  readln
end.