Зашифровать строку символов, поставив каждой букве в соответствии какой-нибудь символ из таблицы ASCII — Pascal(Паскаль)

например:
ввод строки:"привет"
вывод: *=-"!=+

Uses
 CRT;
Var
 i,k2,m:integer;
 s,k,k1,l:string;
begin
readln(s);
k1:='';
randomize;
for i:=1 to length(s) do
begin
m:=random(6);
 k2:=ord(s[i])+m;
 l:=chr(k2);
 k1:=k1+l;
end;
writeln('K1:=',k1);
end.