Разработать программу с применением строк: выделяющее в слове Y те буквы, которые не используется в слове Z, точками слева и справа- Pascal(Паскаль)

uses crt;
var y,z:string;
    i:byte;
begin
clrscr;
write('Введите слово Y - ');
readln(y);
write('Введите слово Z - ');
readln(z);
for i:=length(y) downto 1 do
if pos(y[i],z)=0 then
 begin
  insert('.',y,i+1);
  insert('.',y,i);
 end;
write(y);
readln
end.