В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом 'две'. Введите текст, в котором нет цифр. Какой ответ выдаст программа? Внесите изменения в программу так, чтобы на этот случай выдавалось сообщение 'в тексте нет цифр'

Var t: string;

f: boolean;

i: integer;

begin

t : = '11 рыба 122344 р22 б2';

/ / readln (t);

i : = Length (t) - 1;

for i : = Length (t) - 1 downto 1 do

if (t[i] in ['0' ... '9']) and (t[i] = t[i+1]) then begin

Delete (t, i, 2);

Insert ('две', t, i);

f : = true;

end;

if f then writeln (t)

else writeln ('нет цифр');

end.