Вводится слово-образец. Затем вводится список слов (не более 100). Определите слова, в которых нет хотя бы одной буквы из слова-образца. Выведите такие слова, а также буквы, которых нет в слове-образце — Pascal(Паскаль)

Program abc;
Var b1,b2,ex:string;s:array[1..100] of string; n,i,j,k:integer; y:boolean;
Begin
Writeln('Vvedite obrazec');
readln(ex);
Writeln('Vvedite kol-vo slov');
Readln (n);
for i:=1 to n do
begin
writeln('Vvedite ',i,' slovo');
readln(s[i]);
end;
writeln('naidennye slova');
for i:=1 to n do
begin
for j:= 1 to length(ex) do
begin
y:=false;
b1:=copy(ex,j,1);
for k:=1 to length(s[i]) do
begin
b2:=copy(s[i],k,1);
if b1=b2 then y:=true;
end;
end;
if y=false then writeln(s[i]);
end;
end.