обработка строк в визуальном DELPHI

[Olgasaf]

Даны две строки символов S1 и S2. В данных строках удвоить все символы, стоящие перед первой и после последней цифры.

[Stilet]

Наработки в студию.

[Mad_Cat]

buf:='';
buf2:='';
i:=1;
while not (s[i] in ['0'..9]) and (i<=length(s)) do begin
buf:=buf+s[i]+s[i];inc(i);end;
k:=length(s);
while not (s[k] in ['0'..9]) and(k>=1) do begin
buf2:=s[i]+s[i]+buf2;dec(k);end;
if (k>1) and (i<length(s))  then begin
for j:=i to k do
buf:=buf+s[i];
buf:=buf+buf2; end;

[Olgasaf]

не правильно работает. символы перед первой цифрой удваивают, а остальные делает таким же как это число