Дана символьная строка. Определить количество пробелов в данной строке — Pascal(Паскаль)

program string_14;

var
  s: string;
  k, i: integer;

begin
  Write('введите строку ');
  Readln(s);
  i := 1;
  repeat
    if s[i] = ' ' then
      k := k + 1;
    i := i + 1
  until i = length(s);
  writeln('количество пробелов=', k);
  Readln;

end.