Дано натуральное число n (n< 99999). найти среднеквадратичное значение цифр этого числа. нужна программа в паскале

var
  x: real;
  y: integer;
  i, k: byte;

begin
  readln(y);
  k := length(inttostr(y));
  x := 0;
  foreach o: char in inttostr(y) do
    x += sqr(strtofloat(o));
  x *= 1 / k;
  writeln(sqrt(x));
end.