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