регулярные выражения

[SvetLana2017]

Подскажите,что не так?

writeln('Введите исходный текст');
readln(s);
RegExp.Expression:='\b0\b';
y:=RegExp.Replace(s,'ноль', false);
s:=y;
RegExp.Expression:='\b1\b';
y:=RegExp.Replace(s,'один', false);
s:=y;
RegExp.Expression:='\b2\b';
y:=RegExp.Replace(s,'два', false);
s:=y;
RegExp.Expression:='\b3\b';
y:=RegExp.Replace(s,'три', false);
s:=y;
RegExp.Expression:='\b4\b';
y:=RegExp.Replace(s,'четыре', false);
s:=y;
RegExp.Expression:='\b5\b';
y:=RegExp.Replace(s,'пять', false);
s:=y;
RegExp.Expression:='\b6\b';
y:=RegExp.Replace(s,'шесть', false);
s:=y;
RegExp.Expression:='\b7\b';
y:=RegExp.Replace(s,'семь', false);
s:=y;
RegExp.Expression:='\b8\b';
y:=RegExp.Replace(s,'восемь', false);
s:=y;
RegExp.Expression:='\b9\b';
y:=RegExp.Replace(s,'девять', false);
s:=y;
writeln (s);
end.

[digitalis]

Что значит "не так" ? И как оно должно быть, чтобы "так" ? И где определение переменных ? И код надо оформлять правильно, как сказал бы модератор.