Программа работы со строками

В заданном тексте заменить все числа повторяющимся по числу цифр заданным символом. При отсутствии чисел в строке нужно вывести текст о том, что их нет. Тема строки, т.е. не должны использоваться массивы, не должно быть "if s[i] in ['0'..'9']".

var S,Sout:string; { Входная и выходная строки }
    Ch:char;       { Символ заменитель }
    i:integer;     { Счётчик }
    Flag:boolean;  { Признак наличия чисел }
BEGIN
  WriteLn('Введите текст'); ReadLn(S);  { Ввод текста }
  WriteLn('Введите заменяющий символ'); ReadLn(Ch); { Ввод заменителя }
  Flag:=false; { Сброс флага }
  for i:=1 to Length(S) do { Цикл прохода по строке текста }
    if ('0'<=S[i]) and (S[i]<='9') { Если символ является цифрой }
    then Begin { то }
           Flag:=true; { подъём флага }
           Sout:=Sout+Ch { дополнение строки символом заменителем }
         End
    else Sout:=Sout+S[i]; { иначе - дополнение символом из исходной строки }
  if Flag { Если были встречены цифры }
  then WriteLn(Sout) { то - вывод новой строки }
  else WriteLn('В заданной строке нет чисел') { иначе - вывод сообщения об отсутствии }
END.

Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию