Найти сумму цифр вещественного числа

{Дано вещественное число. Найти сумму цифр этого числа}
uses
  sysutils,math;
var
  r:real;
  i,sum:integer;
  s:string;
begin
  readln(r);
  s:=floattostr(r);
  sum:=0;
  for i:=1 to length(s) do
    begin
      if (s[i]='e') or (s[i]='E') then
        break; // число вида 1.1e+3 
      if s[i] in ['0'..'9'] then
        sum:=sum+strtoint(s[i]);
    end;
  writeln(sum);
  readln;
end.

program summa;
 uses crt;
 var sum,chislo,a,a1,b,c,d,res: real;
                             s: string;
                             i: integer;
                          code: integer;
                            st: string;
                           St2: string;
                           st3: string;
                   a2,b2,c2,d2: string;
 
 Begin
      clrscr;
 
 write('Введите число (не более двух цифр до и после запятой): ');
 Readln(s);
 St:=Copy(s,1,2);
 St2:=Copy(s,4,2);
 St3:=St+st2;
 write('Скопированные цифры: ');
 val(st3,a,code);
 write(a);
 a2:=Copy(st3,1,1);
 b2:=Copy(st3,2,1);
 c2:=Copy(st3,3,1);
 d2:=Copy(st3,4,1);
 val(a2,a1,code);
 val(b2,b,code);
 val(c2,c,code);
 val(d2,d,code);
 Res:=a1+b+c+d;
 write('Сумма введённых Вами цифр равна: ', res);
 
 
end.