Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC!  Надо записать в файл 100 случайных чисел и посчитать сколько среди них нулей! Пожалуйста!

var   f:text;   i, c:integer;   count:byte; begin   randomize;   Assign(f, 'out.txt');   rewrite(f);   count := 0;   for i := 1 to 100 do   begin     c := random(21);     if c = 0 then       inc(count);     write(f, c, ' ');   end;   close(f);   writeln('Количество элементов равных 0 равно ', count); end.