var
a,c,d:ansistring;
b:string;
e,f,g,j,i,m,n,x:integer;
begin
readln(b);
read(a);
e:=length(a);
f:=length(b);
g:=e-f;
j:=1;
for i:=f+1 to e do
begin
b[i]:=b[j];
j:=j+1;
end;
for i:=1 to e do
d[i]:=a[i];
for i:=1 to e do
if ord(a[i])>=65 then begin
a[i]:=lowercase(a[i]);
end;
for i:=1 to e do
if ord(b[i])>=65 then begin
b[i]:=lowercase(b[i]);
end;
for i:=1 to e do
begin
m:=ord(a[i]);
n:=ord(b[i]);
x:=m-n;
x:=x+97;
if x<97
then begin
x:=m-n+123;
end;
c[i]:=chr(x);
end;
for i:=1 to e do
if ord(d[i])<96 then c[i]:=upcase(c[i]);
for i:=1 to e do
write(c[i]);
end.
心情如此不爽……劳烦大神帮帮本渣！

如果把ansi去了就好了，但是题目要求……