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

var    ax, bx:word;    st, sa,sg:string;    i,j, l:byte;    BEGIN  write('Введите целое положительноe число : ');  readln(st);      sa := '';   sg := '';  ax := 0;  bx := 1;  l := st.Length;  for i:=1 to l do begin    j:=ord(st[i])-48;    ax := ax + j;    bx := bx * j;        sa := sa+j+'+' ;    sg := sg+j+'*';  end;  i := l*2-1;  sa := sa.Remove(i,1);  sg := sg.Remove(i,1);  writeln('Среднее арифметическое = (',sa,')/',l, '= ', ax / l );  writeln('Cреднее геометрическое = корень ',l ,' степени из (',sg,') = ', exp(ln(bx)/l));END.