вставка символов

[supernewbie]

скрипт должен превращать строку 35 00 35 00 35 00 35 00 00 00в 35 00 08 00 35 00 08 00 35 00 08 00 35 00 08 00 00 00

Добавлено через 7 минут
весь мозг сломал уже (

var
lengthtext,i,o,text,text1:integer;
symbols:array [0..255] of integer;  
nachalo:boolean;

procedure Init; //Вызывается при включении скрипта
begin
nachalo:=false;
o:=2;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
begin
if FromClient and (pck[1]=#$49) then 
begin
lengthtext:=(length(ReadS(2)));
for i:=0 to lengthtext do
begin
symbols[i]:=ReadH(o);
o:=o+2;
end;
if i=lengthtext then
begin
buf:=#$49;
for i:=0 to lengthtext do
if not (symbols[i]=0) then
begin
WriteH(symbols[i]);
WriteH(8);
nachalo:=true;
end;
if (i=lengthtext) and (nachalo=true) then
begin
WriteH(0);
WriteD(0);
SendToServer;
o:=2;
Exit;
end;
end;
end;
end;

end.

так вроде робит, но робит через символ почему-то... то есть слово 'сюда' заменит на 'сд'...