дана строка длинной в 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.
