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

Program chisla;
var a:integer;
begin
writeln('Введите четырехзначное число ');
readln(a);
if (agt;=1000) and (alt;=9999) then
begin
a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);
writeln('Сумма цифр этого числа: ',a);
end
else writeln('Это не четырехзначное число');
end.