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

Program exs; var a, i, sum : integer;   begin sum:= 0;    readln(a); {Считывание числа}    for i:= 1 to 4 do begin       sum:=sum + (a mod 10); {Находим остаток от деления на 10}       a:=a div 10;                   {Выкидываем найденную цифру из числа}    end; writeln(sum); end.