дана знаковая строка произвольной длины определить число пробелов в строке.

var  i,n:integer;  s:string;begin  Write('Введите строку: '); Readln(s);  n:=0;  for i:=1 to length(s) do    if s[i]=' ' then n:=n+1;  Writeln('Количество пробелов равно ',n)end.Тестовое решение:Введите строку: Пример текстовой    с т р  ок и   !!!Количество пробелов равно 13