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

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