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