Вот пара функций, как напишу еще обязательно сюда пришлю.
1. Функция заменяющая в строке Str символы Chr1 на симвлолы Chr2
Function Repl(Str:String;Chr1,Chr2:Char):String;
var i:integer;
Begin
For i:=0 to Length(Str)-1 do
*If GetChar(str,i)=Chr1 then Str:=SetChar(str,Chr2,i)
*Repl:=Str;
End;
2. Функция возвращающая строку длинной Num из символов Chr
Function CreateCharStr(Chr:Char;Num:integer):String;
var i:integer;
*s:string;
Begin
S:='';
For i:=1 to Num do
*S:=S+Chr;
*CreateCharStr:=S;
End;