Ввести целое число и найти сумму его цифр(1234) паскаль

var s,i:integer; 
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.  

var

  a, Summ:integer;

begin

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

  readln(a);

  Summ := 0;

  while a > 0 do

  begin

    Summ := Summ + a mod 10;

    a := a div 10;

  end;

  writeln('Сумма цифр равна ', Summ);

end.