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

Задание 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