Có sai thì nói mình nhé.

============================

Đây là chương trình mã hóa:

program Hello;
var AZ,s:ansistring;
    i,x:longint;
    k:int64;
begin
    readln(k);
    if k > 26 then k:= k - 26*(k div 26);
    readln(s);
    AZ:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
    For i:= 1 to length(s) do
        begin
            x:=pos(s[i],AZ)+k;
            if x > 26 then 
                x:= x - 26;
            write(AZ[x]);
        end;
end.

================================

Đây là đoạn chương trình giải mã:

program Hello;
var AZ,s:ansistring;
    i,x:longint;
    k:int64;
begin
    readln(k);
    if k > 26 then k:= k - 26*(k div 26);
    readln(s);
    AZ:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
    For i:= 1 to length(s) do
        begin
            x:=pos(s[i], AZ) - k;
            if x < 1 then 
                x:= x + 26;
            write(AZ[x]);
        end;
end.
    
    

uses crt;
var i,k,p:longint; s:string;
begin
clrscr;
   write('Nhap 1 xau: ');readln(s);
   write('Nhap k: ');readln(k);
   for i:=1 to length(s) do 
      begin
         p:=ord(s[i])-k-64;
         if p=0 then p:=26;
         write(chr(p+64));
      end; 
readln
end.