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

var  n:string;  a:integer;procedure chet(n:string;var a:integer);beginwhile 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.