Задана строка. подсчитать, сколько пробелов в строке. паскаль.

Program E07;
  uses crt;
    var
      S: string;
      i,k: integer;
begin
  clrscr;
  writeln('Введите строку: ');
  readln(S);

    K:=0;

    for i:=1 to length(S) do
    if S[i] = ' ' then
      K:=K+1;

    writeln('В строке ',K:2,' пробелов!');
end.