Задача на строки(паскаль).

[pif]

Преобразовать строку, заменяя каждую цифру соответствуюшим ей числом пробелов.(библиотечные функции для работы со строками не искользовать.. типа insert,delete...)желательно чтобы решение каждой подзадачиописывалось подпрограммой.Помогите плиз кто нить...

[alex_fcsm]

var s,s1:string;
    c:set of char;
    i,j,code,n:integer;
begin
readln(s);
i:=0;
s1:='';
c:=['0'..'9'];
repeat 
inc(i);
if s[i] in c then begin
                   val(s[i],n,code);
                   for j:=1 to n do
                      s1:=s1+' ';
                  end
else s1:=s1+s[i];  
until i=length(s);
writeln(s1);
end.

[pif]

6 минут.... ппц....
спасиб огромное )

[alex_fcsm]

Извините я же не могу все время отслеживать сообщения - у меня тоже дела есть

[pif]

а с одной строкой это можна сделать?

[puporev]

Можно, применяя сдвиг элементов строки как в линейных числовых массивах, типа
for i:=j downto 1 do
a[i]:=a[i-1];
a[1]:=' ';

[pif]

спасиб...
попробуемс)

[Safary]

А если не пробелами нужно заменить, а словами "ноль", "один"...."девять"? как это реализовать?

[puporev]

Если как в приведенном примере, то вместо
s1:=s1+' ';
написать
s1:=s1+'ноль';

[Safary]

нее))) цифры от 0 до 9 нужно заменить соответствующими им словами "ноль", "один"...."девять", то тогда как?