Вывести сумму цифр числа

procedure arechisla(var str:string);
var k:boolean; i:integer;
begin
 repeat
  begin
   clrscr;
   k:=false;
   writeln('Vvedit strichku'); 
   readln(str); 
   for i:=1 to length(str) do 
    if(not(str[i] in ['0'..'9'])) then k:=true; 
  end;
 until k<>true;
end;

procedure sum(str:string);
var i,valueint,code,sum1:integer;
begin
 sum1:=0;
 for i:=1 to length(str) do
 begin
  val(str[i],valueint,code);
  sum1:=sum1+valueint;
  write(valueint);
  if i<>length(str) then write('+');
 end;
 write('= ',sum1);
end;

sum:=0;
for i:=1 to length(s) do
 sum:=sum+(ord(s[i])-ord('0'));

uses crt;
var s:string;
 
procedure arechisla(var str:string);
var k:boolean; i:integer;
begin
 repeat
  begin
   clrscr;
   k:=false;
   writeln('Vvedit strichku'); 
   readln(str); 
   for i:=1 to length(str) do 
    if(not(str[i] in ['0'..'9'])) then k:=true; 
  end;
 until k<>true;
end;
 
procedure sum(str:string);
var i,valueint,code,sum1:integer;
begin
 sum1:=0;
 for i:=1 to length(str) do
 begin
  val(str[i],valueint,code);
  sum1:=sum1+valueint;
  write(valueint);
  if i<>length(str) then write('+');
 end;
 write('= ',sum1);
end;
 
begin
 arechisla(s);
 sum(s);
 readkey;
end.

Uses
 CRT;
Var
 s:string;
 
function prov(Var s2:string):boolean;
Var
 i:integer;
 t:boolean;
begin
t:=true;
for i:=1 to length(s2) do
 if not(s2[i] in ['0'..'9']) then t:=false;
prov:=t;
end;
 
function summa(Var s2:string):integer;
Var
 i,sum:integer;
begin
 sum:=0;
  for i:=1 to length(s2) do
   sum:=sum+(ord(s2[i])-ord('0'));
summa:=sum;
end;
 
begin
 repeat
  write('ввод числа: ');
  readln(s);
   if not(prov(s)) then
    write('Некорректный ввод.Повторите ')
 until prov(s);
  write('Сумма чисел:=',summa(s));
 readkey
end.

begin
 readln(s);// <=
 arechisla(s);
 sum(s);
 readkey;
end.