Составить программу, в паскале, нахождения суммы цифр четырехзначного числа

var

  a: 1000..9999; //Четырехзначное число

  a1, a2, a3, a4: 1..9;

begin 

  writeln('Введите четырехзначное число');

  readln(a);

  a1:= a mod 10;  //Первая с конца цифра

  a2:= (a mod 100) div 10;  //Вторая с конца цифра

  a3:= (a mod 1000) div 100;  //Третья с конца цифра

  a4:= a div 1000;  //Четвертая с конца цифра

  writeln('Сумма цифр данного числа:  ', a1 + a2 + a3 + a4);  //Сумма цифр

end.