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

[fratriecz]

привет всем задача такая что даны два слова в текстовом дукументе ,если буква встречается и в 1 слове и во втором то написать (да)если не совпадает(нет),вот я создал к примеру текст документ а как сделать чтобы она(программа)сверяла буквы в словах одна за одной???

program zad6var12;
uses crt;
var
    i,l,j:integer;
f1:text;
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) ;
 
  Randomize;


 
 end;
 close(f1);
end;end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[grandmixer]

можно считать текст в строку а потом запустить цикл от 0 до length(строка_в_которую_считали) и проверять совпадает ли буква
что то типа этого:

var
   s,a:string;
   b:char;
   i:Integer;
begin
     readln(b);
     readln(s);
     for i:=0 to length(s) do
     begin
          if s[i]=b then a:='да';
     end;
     writeln(a);
end.

[fratriecz]

я так сделал,оно ненене пишит,а буквы есть,как такто?

program zad6var12;
uses crt;
var
    i,l,j:integer;
f1:text;
    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) ;
 
 

     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.

[Mad_Cat]

program zad6var12;
uses crt;
var
f1:text;
b:char;
a,st:string;
begin
 clrscr;
 assign(f1,'file1.txt');
 rewrite(f1);
 writeln(f1,'good job');
 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');
   end;
 close(f1);
end.