Комментарий к программе. Определить сумму и количество цифр данного числа числа

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.

var
a:integer; // вводимое число
//d:integer;  // это не нужно
s:integer; // сумма цифр
k:integer;  // количество цифр
begin
write('Введите число - ');
readln(a);
a:=abs(a);//число может быть и отрицательным
if a=0 then k:=1 //если 0, то 1 цифра
else k:=0; // иначе пока цифр=0
s:=0;  // сумма тоже=0
while a<>0 do// пока число не равно 0
 begin
  s:=s+a mod 10; // прибавляем к суме последнюю цифру числа
  k:=k+1;   // считаем цифры
  a:=a div 10  // сокращаем число в 10 раз
 end;
writeln('Сумма цифр числа равна - ',s, ' Количество цифр - ',k);
end.