Написать программу которая определяет нуль и считает его количество из ряда введенных чисел. И объяснить каждую

var s:string;    i,sum:integer; // Объявление переменных begin             // Начинаем программу writeln('Vvedite chislo'); // Вывод текста readln(s); // Ввод текста sum:=0; // Присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0. for i:=1 to length(s) do if s[i]='0' then sum:=sum+1; // Запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. И проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1. writeln(sum); // Вывод суммы end. // Конец программы