Определите долю пробелов в заданной строке — Pascal(Паскаль)

var
  S: String;
  f: real;
  count, i: integer;
begin
  readln(S);
  for i := 0 to Length(S) do
    if S[i] = ' ' then inc(count);
  writeln(count * 100 / Length(S));
end;