буквы в строке

[fratriecz]

ребята кароче задача проверить есть ли каждая буква первого слова во втором если есть то написать да,если нет то написать нет,можно ли какнить укоротить конец программы чтобы программа не закрывалась после ввода первой буквы а спрашивала заного след букву?вот начальная программа

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('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');

 end;
 close(f1);
end.

вот что надобыукоротить

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('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');
       write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');
       write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');
       write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');  write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');  write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');  write('введите символ первого слова:'); readln(b);
     if (pos(b,st)<>0) and (pos(b,a)<>0)
       then writeln('Yes')
     else writeln('No');
     
 end;
 close(f1);
end.