Склавиатуры вводится строка. подсчитать и вывести среднее арифметическое цифр в строке. pascal abc

Var
   Stroka:string;
   S:real;
   i,k:integer;
Begin
Write('Введите строку: ');ReadLn(Stroka);
k:=0;
S:=0;
For i:= 1 to Length(Stroka) do
    Begin
    Case Stroka[i] of
    '1':S:=S+1;
    '2':S:=S+2;
    '3':S:=S+3;
    '4':S:=S+4;
    '5':S:=S+5;
    '6':S:=S+6;
    '7':S:=S+7;
    '8':S:=S+8;
    '9':S:=S+9;
    End;
    Case Stroka[i] of
    '0'..'9':k:=k+1;
    End;
    End;
WriteLn('Сумма цифр: ',S);
WriteLn('Количество цифр: ',k);
WriteLn('Среднее арифметическое цифр: ',S/k);
End.