Помогите, пожалуйста!!!информатика, цикл repet1) Найти сумму и количество цифр числа.

program p1;

var a,s,k: integer;

begin

write('Введите число: ');

readln(a);

s:=0;

k:=0;

repeat

s:= s+a mod 10;

k:= k+1;

a:= a div 10;

until a=0;

writeln('Сумма цифр числа одинакова ',s);

writeln('Количество цифр в числе ',k);

end.

Пример:

Введите число: 12345

Сумма цифр числа одинакова 15

Количество цифр в числе 5