Нужно программу написать в одномерном массиве!!!

[Fylhtq]

Вот условие прграммы!!!
Утроить все цифры, стоящие перед первой буквой текста

а вот программа с процедурами , но мне нужно в одномерном массиве!!!


program laba;
uses Crt;
procedure PrintInfo (str: string);
begin
writeln('Наш текст: ');
writeln(str);
end;
procedure VvodInfo (var str: string);
begin
writeln('введите текст');
readln(str);
end;
procedure ObrInfo (var str: string);
var
i, vr: byte;
tmp: string;
code: integer;
begin
i:=1;

Val(str[1], vr, code);

while (0 < vr) and (vr <= 9) do
begin
tmp:=Concat(str[i], str[i]);
Insert (tmp, str, i+1);
i:=i+3;
Val(str[i], vr, code);
end;
end;
var
text: string;
begin
ClrScr;
VvodInfo (text);
ObrInfo (text);
PrintInfo (text);
ReadKey;
end.

[Fylhtq]

ммм, помогите пожалуйста , очень надо....

[alex_fcsm]

uses Crt;
var s:string;
    i:integer;
    ch:char;
begin
ClrScr;
readln(s);
i:=length(s);
while i>=1 do
 begin
   if (s[i] in ['0'..'9']) and (s[i+1] in ['a'..'z','A'..'Z']) then begin
                                                                     ch:=s[i];
                                                                     insert(ch,s,(i));
                                                                     insert(ch,s,(i));
                                                                     dec(i);
                                                                    end
      else
      dec(i);
 end;
 writeln(s);
end.

[Fylhtq]

а мне нужен массив а не просто

[Fylhtq]

ааа, прога только 3 утраивает.....

Например
354hdhj43
должно быть ответ так:
333555444hdhj43

[alex_fcsm]

uses Crt;
var s:string;
    i,m:integer;
    ch:char;
begin
ClrScr;
readln(s);
i:=1;
m:=length(s);
while (i<=m) do
 begin
   if (s[i] in ['0'..'9'])  then begin
                                 ch:=s[i];
                                 insert(ch,s,(i));
                                 insert(ch,s,(i));
                                 i:=i+3;
                                 m:=length(s);
                                end;
  if  (s[i] in ['a'..'z','A'..'Z']) then break;
 end;
 writeln(s);
end.

[Fylhtq]

ну я это понял ,а где же тогда массив

[alex_fcsm]

uses crt;
var a:array[1..1000] of char;
    i,j,n:integer;
    s:string;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
   a[i]:=s[i];
i:=1;
n:=length(s);
while i<=n do
begin
 if a[i] in ['0'..'9'] then begin
                       for j:=n+2 downto i+2 do
                        a[j]:=a[j-2];
                        a[i+1]:=a[i];
                        a[i+2]:=a[i];
                        n:=n+2;
                        i:=i+2;
                       end;
 if a[i] in ['a'..'z','A'..'Z'] then break;
 inc(i);
end;
writeln;
for i:=1 to n do
 write(a[i]);
end.

[Fylhtq]

вот спасибо!!!!!