Составте программу вычисляющего сумму 4х значного числа оформить по всем правилам

Program sumator; {На самом деле, эта программа вычислять сумму цифр любого числа, а не только 4-х значного} 
uses crt; 
var c:integer; 
ed,des,sot,tis,sum:real; 
begin 
clrscr; 
repeat 
writeln ('Введите число'); 
readln (c); 
ed:=c div 10; 
ed:=c - ed*10; 
des:=c div 100; 
des:=(c - des*100 - ed)/10; 
sot:=c div 1000; 
sot:=(c-sot*1000 - (des*10+ed))/100; 
tis:=(c-(sot*100+des*10+ed))/1000; 
sum:=ed+des+sot+tis; 
writeln ('Сумма цифр = ',sum:2:0); 
until c=0; 
end.