Напишите, пожалуйста, комментарии к программе

program task_4;
var 
  a:integer; // ваш комментарий. зачем эта переменная
  d:integer;  // ваш комментарий. зачем эта переменная
  s:integer; // ваш комментарий. зачем эта переменная
  k:integer;  // ваш комментарий. зачем эта переменная
begin
 write(Введите число - );
 readln(a);
 k:=1; // ваш комментарий оператора
 s:=a mod 10;  // ваш комментарий оператора
 d:=a div 10;  // ваш комментарий оператора
 while d<>0 do  // ваш комментарий условия, почему оно такое
    begin
       s:=s+d mod 10; // ваш комментарий оператора
       k:=k+1;   // ваш комментарий оператора
     d:=d div 10  // ваш комментарий оператора
    end;
  writeln('Сумма цифр числа равна - ',s:7, ' Количество цифр - ',k:7);
  readln
end.

//например мы вводим число 234567
program task_4;
var 
  a:integer; // число, которое мы вводим
  d:integer;  // бесполезная вещь,можно обойтись без этой переменной (заменяет a)
  s:integer; // сумма цифр
  k:integer;  // тут будет храниться количество цифр
begin
 write(п‚ўВведите число - п‚ў);
 readln(a);
 k:=1; // счётчик равен 1
 s:=a mod 10;  // пишем остаток от деления на 10 (одну цифру числа, т.е 7)
 d:=a div 10;  // целое от деления на 10 (оставшиеся цифры, 23456)
 while d<>0 do  // каждый проход цикла будет сокращать число на 1 цифру: 23456 -> 2345 -> 234 и тд.
 //в итоге оно будет равно нулю. Пока этого не случилось цикл выполняется
    begin
       s:=s+d mod 10; // остаток от деления (следующая цифра, при первом проходе 6, потом 5, потом 4 и тд)
       //прибавляем к сумме
       k:=k+1;   // счётчик количества цифр увеличиваем на 1
     d:=d div 10  // целое от деления на 10 (оставшиеся цифры, при первом проходе 2345, при втором 234 и тд)
    end;
  writeln(п‚ўСумма цифр числа равна - п‚ў,s:7, п‚ў Количество цифр - п‚ў,k:7);
  readln
end.