Посчитать количество нулей среди 11 чисел что вводит пользователь — Pascal(Паскаль)

program uzduotis1;
   var
   q,w,e:longint;
begin
e:=0;
for i:= 1 to 11 do
begin
write('введите число: ');
readln(w);
if (w=0) then
begin
e:=e+1;
end;
end;
write(e);
readln;                 
end.