Срочно нужна помощь.Хотя бы одно любое задание!!

Задание 1
var
  s:string;
  digit:set of '0'..'9';
  i,imax:integer;
begin
  Write('Введите строку: '); Readln(s);
  imax:=Length(s)-1;
  i:=imax;
  digit:=['0'..'9'];
  while i>=2 do begin
    if (not (s[i] in digit)) and (s[i+1] in digit) and (s[i-1] in digit)
    then Delete(s,i,1);
    Dec(i)
    end;
  Writeln('Результат: ',s)
end.
   
Тестовое решение
Введите строку: 12*3aa456*78aa
Результат: 123aa45678aa