Вводится 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.