Шифрование. В выходной файл вывести единственную строку, в котором содержится расшифровано сообщение

function Decrypt(msg, code: string): string;
var
  i, p: integer;
begin
  for i:=1 to Length(msg) do begin
    p:=Pos(msg[i],code);
    if p<>0 then begin
      inc(p,2);
      if p>Length(code) then dec(p,Length(code));
      msg[i]:=code[p];
    end;
  end;
  Decrypt:=msg;
end;
 
var
  s, c: string;
begin
  Assign(input,'input.txt'); Assign(output,'output.txt');
  Reset(input); Rewrite(output);
  ReadLn(s); ReadLn(c);
  WriteLn(Decrypt(s,c));
  Close(input); Close(output);
end.

function Decrypt(msg, code: string): string;
var
  i, p: integer;
begin
  for i:=1 to Length(msg) do begin
    p:=Pos(msg[i],code);
    if p<>0 then begin
      dec(p,2);
      if p<1 then inc(p,Length(code));
      msg[i]:=code[p];
    end;
  end;
  Decrypt:=msg;
end;

p:=Pos(msg[i],code);

p:=Pos(UpCase(msg[i]),code);

  for i:=1 to Length(code) do code[i]:=UpCase(code[i]);