Зашифровать строку: буква заменяется на функцию от кода буквы (значение функции — двузначное число) — Pascal(Паскаль)

Uses
 CRT;
Var
 i,l:integer;
 s,k,k1:string;
begin
ClrScr;
write('Stroka:=');
readln(s);
k1:='';
for i:=1 to length(s) do
begin
 l:=ord(s[i]);
 str(l,k);
 k1:=k1+k;
end;
writeln('Shifrov:=',k1);
readkey
end.