Вчетырёхзначном числе определить сколько в нём нулевых цифр, использовать паскаль

Var   n, i, p, o, z : integer;   r : real; begin   write('n = '); readln(n);   p : = 0; o : = 0; z : = 0;   // для for                // для while            // для repeat   for i : = 1 to n do // i : = 0;                 // i : = 0;                                         // while i < n do  // repeat       begin                      // begin                    //    inc(i)                                         //    inc(i);           write(i, ' число = '); readln(r);           case sign(r) of               +1 : inc(p);               -1 : inc(o);                 0 : inc(z);             end;       end;                         // end;                       // until i = n;   writeln('процент положительных чисел: ', p*100/n);   writeln('процент отрицательных чисел: ', o*100/n);   writeln('          процент нулевых чисел: ', z*100/n); end. тут даже больше

пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление