Написать программу для решения . дана строка, содержащая текст. сколько слов в тексте? сколько цифр в тексте?

ответ:

{подсчёт числа символов цифр в строке}

var s: string;   i,n: integer;

begin

        readln(s);

        n : = 0;

        for i: =1 to length(s) do begin // обходим строку в цикле

                if (s[i]> ='0')and(s[i]< ='9') then inc(n);

        end;

      writeln('this string contains ',n,' digits.'); // выводим массив

end.

program raf105;

var  

  s,s1,s2: string;

  slov,numb,i,j: integer;

begin

writeln('введите строку: ');

readln(s);

s: = lowercase(s);

s1: = 'йцукенгшщзхъфывапролджэячсмитьбюёqwertyuiopasdfghjklzxcvbnm';

s2: = '1234567890';

for i: =1 to length(s1) do

  if s[1] = s1[i]

    then slov+= 1

    else if (i< =length(s2)) and (s[1] = s2[i])

      then numb+=1;

for i: =2 to length(s) do

begin

  if s[i] = ' '

    then  

    begin

      for j: =1 to length(s1) do

        if s[i+1] = s1[j]

          then slov+= 1;

    end

    else

    begin

      for j: =1 to length(s2) do

        if s[i] = s2[j]

          then numb+= 1;

    end; ;

end;

writeln;

writeln('в строке: ');

writeln(slov,' сл.');

writeln(numb,' циф.');

end.