Может, имелось в виду это:
...
var
t:string;
...
t:=chstr(k);
um(s,t,s);
...
?