группы в строке Опции

[Fraid444]

в чём суть задачи:
дана строка длинной в 80 символов.Произвести поиск групп букв и чисел в ней и сравнить,которых групп больше.В случае,если групп букв и цифр нету,а только группа знаков (+-*),то вывести сообщение:"групп букв и цифр не обнаружено".

Программу написал,но почему-то считает каждый символ по отдельности.Прошу помочь,пожалуйста!

program stroki;

uses
  crt;

var
  S, ns: string[80];
  t, f, f1, kc, ks, d, i: byte;

const
  n = '1234567890';
  a = 'abcdefghijklmnopqrstuvwxyz';

begin
  kc := 0;
  ks := 0;
  
  clrscr;
  read(S);
  d := length(S);
  for i := 1 to d do
 begin
    t := pos(S[i], n);
    if t > 0 then
    begin
      ns := ns + S[i];
      f := 1;
    end
    else 
    begin
      if f = 1 then
        kc := kc + 1;
      f := 0;
      delete(ns, 1, length(ns));
    end
    end;
 
  
  f := 0;
  delete(ns, 1, length(ns));
  for i := 1 to d do
  begin
    t := pos(S[i], a);
    if t > 0 then
    begin
      ns := ns + S[i];
      f := 1;
    end
    else
    begin
      if f = 1 then
        ks := ks + 1;
      f := 0;
      delete(ns, 1, length(ns));
    end
  end;
  if (kc = 0) and (ks = 0) then
  begin
    clrscr;
    write('no symbols and digets');
    readkey;
  end; 
  if kc > ks then
  begin
    clrscr;
    write('a lot of digets');
    readkey;  
  end
  else
  begin
    clrscr;
    write('a lot of symbols');
    readkey;
  end;
  if kc = ks then
  begin
    clrscr;
    write('они равны');
    readkey;
  end
  
  
  
end.

[Fraid444]

помогите,пожалуйста(срочно нужно