Ну во-первых, Вы же сами определяете тип задания, как работа с множествами, а где у Вас в программе множества? В упор не вижу. Во-вторых, я работаю только с DOS-Паскалем, а потому правильность установки виндовских модулей-кодировщиков и возня с кириллицей - Ваша забота. В-третьих, вводить текст побуквенно - тоска смертная, а потому я ввожу и обрабатываю строку целиком. Вот что получилось:
Код:
var
a:array[1..200] of string;
i,j,n:integer;
r:set of char;
t:boolean;
s:string;
begin
for i:=1 to 200 do a[i]:='';
r:=[];
writeln('Enter the string:');
readln(s);
i:=1;
j:=0;
while s[j]<>'.' do
begin
inc(j);
if s[j]=' ' then
inc(i)
else
a[i]:=a[i]+s[j];
end;
n:=i;
for i:=1 to length(a[1]) do
if not(a[1][i] in r) then r:=r+[a[1][i]];
writeln('Words containing no letters of the first word:');
for i:=2 to n do
begin
t:=true;
j:=0;
repeat
Inc(j);
if a[i][j] in r then t:=false;
until not(t) or (j=length(a[i]));
if t then write(a[i]+' ');
end;
readln
end.