Рассматривая слова как числа, определить среднее арифметическое цифр этих чисел

Var s:string;
i,n,k,m,sum:integer;
Begin
Writeln('Vvedite stroku:');
Readln(s);
sum:=0;
for i:=1 to length(s) do
 if s[i]<>' ' then
  begin
   val(s[i],n,m);
   k:=k+1;
   sum:=sum+n;
  end;
Writeln('Srednee=',sum/k:8:2);
Readln;
End.

var s, sWord : string;
 i, sum, k : integer;
begin
  Readln(s);
  s := s + ' ';
  sWord := '';
  for i:=1 to Length(s)-1 do 
    if (s[i]<>' ') and (s[i+1]=' ') then begin
      sWord := sWord + s[i];
      k := 0; sum := 0;
      while k<Length(sWord) do begin
        inc(k);
        if sWord[k] in ['0'..'9']
           then sum := sum + ord(sWord[k]) - ord('0');
      end;
      if k>0 then WriteLn(' for word : ',sWord, ' sum =',sum, ' average = ', (sum/k):1:3);
      sWord := ''
    end
    else
      if s[i]<>' ' then sWord := sWord + s[i];
  Readln
end.