Написать функцию кодировки строчки по шифру Цезаря (сдвиг каждого знака по

Const n=26; ab='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
procedure Caesar(s:string;k:integer; var t:string);
var i,p,j:integer;
begin
t:='';
for i:=1 to length(s) do
 begin
 p:=pos(s[i],ab);
 if pgt;0 then begin
  j:=(p+k-1) mod n+1;
  if jlt;=0 then j:=n+j;
  t:=t+ab[j];
  end
 else t:=t+s[i];
 end;
end;
var t:string;
begin
Caesar('ANZ',3,t);
writeln(t);
Caesar(t,-3,t);
writeln(t);
end.

Пример:
DQC
ANZ