Помогите с кодом. Pascal

[максич]

7. В заданной строке текста определите число групп символов и число групп цифр.

[Stilet]

s:='7. В заданной строке текста определите число групп символов и число групп цифр.';
i:=1; Bukv:=0; cyfr:=0;
while i<=length(s) do begin
 if s[i] in ['0'..'9'] then begin  while (i<=length(s)) and (s[i] in ['0'..'9']) do inc(i); inc(cyfr); end else
  if s[i] in ['a'..'z'] then begin  while (i<=length(s)) and (s[i] in ['a'..'z']) do inc(i); inc(bukv); end else
 inc(i);
end;
writeln('Цифрогрупп: ',cyfr:10,'Буквогрупп: ',Bikv:10);readln;

Годится идея?

[максич]

спасибо, суть уловил

[Arigato]

Вариант с конечным автоматом:

var
  s: string;
  state, nums_count, chars_count, i: integer;
begin
  readln(s);
  nums_count:=0; chars_count:=0;
  state:=0;
  for i:=1 to length(s) do begin
    case s[i] of
      '0'..'9': begin
        if state<>1 then inc(nums_count);
        state:=1;
      end;
      'a'..'z','A'..'Z': begin
        if state<>2 then inc(chars_count);
        state:=2;
      end;
      else state:=0;
    end;
  end;
  writeln('Групп цифр: ',nums_count,'; групп букв: ',chars_count);
end.