[pax]

Вот пара функций, как напишу еще обязательно сюда пришлю.

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;