Программа, которая находит сумму цифр целого числа — Pascal(Паскаль)

var
  a, x: integer;
  i, s: integer;

begin
  writeln('vvedite tseloe chislo');
  readln(a);
  x := a;
  s := 0;
  while (x <> 0) do
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
  writeln('Summa tsifr chisla ', a, ' = ', s);
  readln;