[friz]

что-то такое:

Код:

//s-как я понял переменная подаваемая на вход функции
var i,l:integer;
     r,c,k:string;
begin
r:='';
l:=length(s)-1;
k:=copy(s,l,1);
for i:=0 to l do
begin
c:=StringToWideChar(s[i])-k;
if c<32 then c:=127-(32-c);
r:=r+WideCharToString(c)
end;
result:=r;