Xor шифрование - Pascal

procedure codec(var s: string; key: string);
var i, j: integer;
begin
  if length(key) > 0
    then begin
      j := 1;
      for i := 1 to length(s) do
        begin
          s[i] := char(byte(s[i]) xor byte(key[j]));
          inc(j);
          if j > length(key) then j := 1
        end
    end
    else writeln('Ошибка: нулевая длина ключа.')
end;
 
var str, keystr: string;
begin
  writeln('Введите строку:');
  readln(str);
  writeln('Введите ключ:');
  readln(keystr);
  writeln('Закодированная строка:');
  codec(str, keystr);
  writeln(str);
  writeln('Раскодированная строка:');
  codec(str, keystr);
  writeln(str);
  readln
end.