Создать программу в abc pascal(с строк сделать): ввести строку состоящюю из различных символов и определить: 1) произведение цифр входяящих в эту строку(произведение может быть большим)ж 2) сумму цифр входящих в эту строку, если эти велечины есть

Program str;
 Uses crt;
Var   s:string;  
i,p,sum:integer;
Begin     
         P:=1;     
         Sum:=0;     
         Readln(s);     
         For i:=1 to length(s) do     
               Begin      
          If s[i] in ['0'..'9'] then                       
                                       Begin                           
                                               p:=p*(ord(s[i])-ord('0'));                                                                                         sum:=sum+(ord(s[i])-ord('0'));                     
                                       End;     
               End;     
Writeln('Сумма = ',sum,' ','Произведение = ',p);
End.