Caesar cipher

Source code

function caesar(s: string; k: integer): string;
var i: integer;
    r: string;
begin
  r := '';
  for i := 1 to length(s) do
    r := r + chr(ord(s[i]) + k);
  caesar := r;
end;