Дан текст. Удалить из текста все символы арифметических операций и найти количество цифр, встречающихся в нем.

Const
 signs = ['^','+','-','*','/'];
Var
 s:string;
 i,k:integer;
Begin
 Write('Введите выражение: ');
 Readln(s);
 k:=0;
 For i:=length(s) downto 1 do
  Begin
   If ord(s[i]) in [48..57] then inc(k);
   If s[i] in signs then delete(s,i,1);
  End;
 writeln('После обработки: ',s);
 Writeln('Количество цифр: ',k);
End.

// Дан текст. Удалить из текста все символы арифметических операций
// и найти количество цифр, встречающихся в нем.
// ABC
Const
 signs = ['^','+','-','*','/'];
Var
 s:string;
 i,j,k,len:integer;
Begin
 Readln(s);
 len:= length(s);
 k:=0;
 j:=1;
 For i:=1 to len do
   If not (s[i] in signs) then
     begin
       if (i<>j) then s[j]:=s[i];
       inc(j);
       If s[i] in ['0'..'9'] then inc(k);
     end;
 delete(s,j,len-j+1);
 writeln('Строка "', s, '" содержит цифр -> ',k);
End.