Дано n-значное число. найти сумму и произведение его цифр

program strings;
 
var
 
 N:string;
 i,Ni:integer;
 Summ,PSumm:integer;
 
Begin
{ input }
 Write('N: ');
 readln(N);
{ process }
 Psumm:=1;
 for i:=1 to length(N) do begin
                          Ni:=ORD(N[i])-48;
                          inc(Summ,Ni);
                          PSumm:=PSumm*Ni;
                          end;
{ output } 
writeln('сумма цифр числа ',n,': ',Summ);
Writeln('произведение цифр числа ',n,': ',PSumm);
End.

var
N:integer;
S,P:integer;
begin
    write('N = ');readln(N);
    S:=0;
    P:=1;
    while((N mod 10) <>0)do
    begin
       S:=S+(N mod 10);
       P:=P*(N mod 10);
       N:=N div 10;
    end;
    writeln('Сумма = ',S);
    writeln('Произведение =',P);
end.

var
N:integer;
Str:string;
i:integer;
S,P:integer;
begin
    write('N = ');readln(N);
    Str:=IntToStr(N);
    S:=0;
    P:=1;
    i:=1;
    while(i<=length(Str))do
    begin
       S:=S+StrToInt(Str[i]);
       P:=P*StrToInt(Str[i]);
       i:=i+1;
    end;
    writeln('Сумма = ',S);
    writeln('Произведение =',P);
end.