помогите, нужно в системе паскаль написать программу которая запрашивает 5 чисел и сообщает каких больше-положительных или отрицательных

var a,b,bz,sz: integer;beginb:=0;bz:=0;sz:=0;while (b<5) do beginwrite('введите число ==> ');readln(a);if (a>0) then bz:=bz+1;if (a<0) then sz:=sz+1;b:=b+1; end;if  bz>sz then writeln('больше положительных');if sz>bz then writeln('больше отрицательных');if sz=bz then writeln('число отрицательных и положительных одинаково');end.