Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделённых пробелами.Слово представляет собой последовательность латинских букв. Напечатайте те слова, в которые не входит ни одна из букв первого слова.(Попробовала написать программу, но она работает неправильно..исправьте, если что не так)
uses
SysUtils, Windows;
var a:array[1..200]of string;
c:char;
k,i,j,n:integer;
t:boolean;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
i:=1;
read(c);
while c<>'.' do
begin
if c=' ' then
inc(i)
else
a[i]:=a[i]+c;
read(c);
end;
n:=i;
i:=2;
while i<n do
begin
t:=false;
for j:=1 to length(a[1]) do
begin
for k:=1 to length(a[i])do
if a[i][k]=a[1][j] then
t:=true;
end;
if t=false then
writeln('Cлова, в которые не входит ни одна из букв первого слова: ', a[i]);
readln;
inc(i);
end;
readln
end.