напишите программу,которая обретает сумму цифр введённого пятизначного естественного числа

Var A,S,k:integer;
begin
S:=0;
write('Введите A = ');Readln(A); 
 while (Agt;0) do    begin   
          If (klt;5) then begin     
               k:=k+1;     S:=S+A mod 10;     A:=A div 10;     
               end   
          else begin
                  k:=100;A:=0;
                end; 
           end;  
f(k=5) then 
     write(S) 
else
      write('не пятизнач'); 
end.