Задача про символы Опции

[Dan]

Здравствуйте, помогите пожалуйста написать программку!

Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на  ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}'  в конец.

[P@sh@]

Код

var s: string;
     i: integer;
    m: boolean;
begin
   readln(s); m:=true;
   for i:=1 to length(s) do begin
     if (s[i]>='0')and(s[i]<='9') then begin
       s[i]:='*'; m:=false;
     end;
     if (s[i]='d')and(i<length(s)) then
       if s[i+1]='e' then begin
         s[i]:='e'; s[i+1]:='d';
         m:=false;
       end;
   end;
   if m then s:='{'+s+'}';
   writeln(s);
end.

[The_Annie]

СПАСИБО!!!!! ;D