определить число символов

[Blond_89]

Помогите, пожалуйста решить задачу. в строке символов определить число символов между 2 символами *

[rubius2008]

delete(s,1,pos('*',s));
writeln('Количество символов = ',pos('*',s)-1);

[Blond_89]

мне нужно чтобы использовался массив типа char

[rubius2008]

т.е. нельзя использовать стандартные строковые функции?

[Blond_89]

нет. Как вы написали, у меня все получилось, а вот с массивом не как не могу

[NioTo]

var
  i : Integer;
  Counter: Integer = 0;
  Str: Array[1..255] of Char;
  Count: Boolean = FALSE;

begin
  ReadLn(Str);
  for i := 1 to Length(Str) do begin
    if Str[i] = '*' then
      if Count = FALSE then
        Count := TRUE
      else
        Count := FALSE;

    if Count and (Str[i] <> '*') then
      Inc(Counter);
  end;

  WriteLn(Counter);
end.

[Blond_89]

Спасибо Вам