Написать процедуру/функцию на языке программирования для определения количества пробелов в заданной текстовой строке — Pascal(Паскаль)

function num(const str : string);
var
  i : integer;
  lenStr : integer;
begin
  lenStr := length(str);
  num := 0;
  for i := 1 to lenStr do
    if (str[i] = ' ') then
      inc(num);
end;