Pascal 编程的一个关于密码的问题

Pascal 编程的一个关于密码的问题

意思是：先输入一段英文，和一个单词

比如说 英文是 there is a pan 单词是 like

然后 英文字母分别对应的就是

a b c d e f g h i j k l m n o p q r s t u v w x y z

l i k e a b c d f g h j m n o p q r s t u v w x y z

先输入的一段英文输出就成了

tdara fs l pln

有哪一个好心人会啊 .. 帮帮我啊

VAR
sentence,words:string;
b:array[1..26]of boolean;
i,l:word;
BEGIN
readln(sentence);
readln(words);
l:=length(words);
fillchar(b,sizeof(b),1);
for i:=1 to l do
b[ord(words[i])-96]:=false;
for i:=1 to 26 do
if b[i] then words:=words+chr(i+96);
l:=length(sentence);
for i:=1 to l do
if((sentence[i]<'a')or(sentence[i]>'z')) then write(sentence[i])
else write(words[ord(sentence[i])-96]);
writeln;
readln;
END.