Текст задания

Дан текст. Вставить в этом тексте после каждой цифры ее словесное описание.

Исходный код программы

Program mn_2;
uses crt;
var
m,o: set of char;
s,st: string;
key: char;
i:integer;
begin
clrscr;
Writeln('vvedite text: ');
readln(s);			{считываем текст в строку}
m:=['0'..'9'];			{задаем множество цифр}
Writeln('Result:');
for i:=1 to length(s) do	{перебираем строку по символьно}
 begin
 Write(s[i]);
  if s[i] in m then		{если символ принадлежит множеству цифр, то}
   begin
     case s[i] of		{в зависимости от цифры добавляем соответствующее ей описание}
     '0': st:='zero';
     '1': st:='one';
     '2': st:='two';
     '3': st:='three';
     '4': st:='four';
     '5': st:='five';
     '6': st:='six';
     '7': st:='seven';
     '8': st:='eigth';
     '9': st:='nine';
     end;
    write (st);
   end;
  end;
readln;
end.

Результат работы программы