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

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var s: =readlnstring('> ').towords;   var c: =upcase(s[0][1]); // первая буква первого слова   var w: string: =s[1].toupper; // второе слово на верхнем регистре   var n: =0;   for var i: =1 to w.length do       if pos(c,w[i])> 0 then inc(n);   writeln('буква "',s[0][1],'" встретилась во втором слове ',       n,' раз(а)') end. тестовое решение > васильев    воеводченков буква "в" встретилась во втором слове 3 раз(а)

//pascal abc.net v3.1 сборка 1219 var   s,s1: string;   i,k: integer;   c: char; begin   readln(s);   s1: =copy(s,pos(' ',s),length(s)-pos(' ',s)+1);   c: =s[1];   while (pos(upcase(c),s1)< > 0) do   begin     delete(s1,pos(upcase(c),s1),1);     inc(k);   end;   while (pos(lowcase(c),s1)< > 0) do   begin     delete(s1,pos(lowcase(c),s1),1);     inc(k);   end;   writeln('count=',k); end. пример ввода: резванов рерзялков пример вывода: count=2