Вводится n строка, найти кол-во пробелов в ней. pascal abc

Var  n:string;  a:integer;

procedure chet(n:string;var a:integer);
begin
while pos(' ',n)<>0 do      //пока в строке есть пробелы 
     begin
        a:=a+1;               //к счетчику пробелов + 1
        delete(n,pos('',n),1);       //удалить текущий пробел
      end;
end;

begin
  readln(n);         // вводим строку
  a:=0;               //обнуляем счетчик
  chet(n,a)          //считаем пробелы
  writeln(a);        //выводим кол-во пробелов
end.