строки буквы в словах

[fratriecz]

ребят помогите,даны два слова нужно чтобы программа проверила есть ли буквы из 1ого слова во втором,если да то на каждую букву написать да или нет если нет вот заготовка но чето не так в ней она букву каторую я пишу рассматривает и то в обоих словах а мне нужно сравнить только со 2ым словом...

program zad6var12;
uses crt;
var
    i,l,j:integer;
f1:text;
   t, b:char;
a,st:string;
n:byte;
begin

clrscr;
assign(f1,'file1.txt');
 rewrite(f1);
 writeln(f1,'');
 close(f1);
 reset(f1);
 while not eof (f1) do
 begin
 readln(f1,st);

 
 
  writeln(st) ;
     a:=Copy(st,1,pos(' ',st)-1);
     delete(st,1,pos(' ',st));
     write('symbol:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');
 
 
 

     for i:=0 to length(st) do
     begin
        if st[i]<>b then
          writeln('no') else
          if st[i]=b then
          writeln('yes');
         ;
     end;


 end;
 close(f1);
end.

[whatever]

Кросспост: http://programmersforum.ru/showthread.php?t=219685