Легкая задача по Delphi

[BDA]

function find_symbolgroup(s: string; c: char): integer;
var
  max, cur, i: integer;
begin
  max := 0;
  cur := 0;
  for i := 1 to length(s) do
    if s[i] = c then
      inc(cur)
    else
    begin
      if cur > max then max := cur;
      cur := 0;
    end;
  if cur > max then max := cur;
  find_symbolgroup := max;
end;

Если нужно найти максимальную длину непрерывной группы символов с.
find_symbolgroup(s, ' ')

Правда, я не очень понимаю, что именно нужно подсчитать.
Может нужно просто подсчитать, сколько раз в строке встречается какой-либо символ.

function count_of_symbol(s: string; c: char): integer;
var
  count, i: integer;
begin
  count := 0;
  for i := 1 to length(s) do
    if s[i] = c then
      inc(count);
  count_of_symbol := count;
end;

[anthonyk]

Вот набросал примерно. Посмотрите, пожалуйста, я в правильном направлении иду?

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i,n,a,b:integer;
  f:char;
begin
s:=Edit1.Text;
n:=length(s);
a:=0;
b:=0;
For i:=1 to n-1 do
  begin
    if s[i]=' ' then
      begin
      a:=a+1;
      if a>b then b:=a;
      end
    else a:=0;
    end;
  Label1.Caption:=IntToStr(i);
end;

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  max, cur, i: integer;
  s: string;
begin
  s := Edit1.Text;
  max := 0;
  cur := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then
      inc(cur)
    else
    begin
      if cur > max then max := cur;
      cur := 0;
    end;
  if cur > max then max := cur;
  Label1.Caption:=IntToStr(max);
end;

[anthonyk]

Задача звучит следующим образом:
Даны натуральное число n, символы S1,S2,...,Sn. Подсчитать наибольшее количество идущих подряд пробелов.

Спасибо, BDA, большое за Вашу помощь! Сейчас почитаю про find_symbolgroup. Насколько я понимаю char - это некий контейнер для хранения, когда мы находим группу символов, мы сравниваем ее с той что есть в char, заменяя ее если она больше, и так с каждой группой. Я правильно понял?

[BDA]

Пожалуйста.
find_symbolgroup - самописная функция
char - символ, из которого будут состоять группы для поиска
2 счетчика - текущий и максимальный
Если нашли символ c, то увеличиваем текущий счетчик, если же наткнулись на другой символ, то сравниваем текущий счетчик с максимальным и заменяем, если нужно, значение и обнуляем текущий счетчик
После прохода по строке может получиться, что она вся состояла из пробелов, и ветка else никогда не выполнилась, поэтому еще раз сравниваем счетчики