Помогите с задачей в pascal. введите символ с клавиатуры Найдите сумму произведение и среднее арифметическое и среднее геометрическое цифр его кода

Var

a, b, c: integer;

begin

writeln ('Введите 3 числа: ') ;

readln (a, b, c) ;

writeln (a,' + ', b,' + ', c,' = ', a+b+c) ;

writeln (a,' * ', b,' * ', c,' = ', a*b*c) ;

writeln ('Среднее арифметическое чисел = ', (a+b+c) / 3) ;

end.

Var c:char; a, s, p, k:integer;

begin

readln (c) ;

a:=ord (c) ;

writeln ('code = ', a) ;

s:=0; k:=0; p:=1;

while a>0 do

begin

s:=s+a mod 10;

p:=p * (a mod 10) ;

k:=k+1;

a:=a div 10;

end;

writeln ('s = ', s,' p = ', p,' sr = ', s/k:5:2) ;

end.

Пример:

&

code = 38

s = 11 p = 24 sr = 5.50