поиск в файле Опции

[Aivan]

Здравствуйте такая задача стоит передомной. Задётся алфавит, а в файле етсь некий текст, нужно в этом тексте найти такие символы которые ен соответствуют алфавиту.... (ну пробел и конеч строки по всей видимости считаются в алфавите по умолчанию)...

я пытался написать что - то вроди этого, но не делает она нужного сам не понимаю почему...помогите плз...

program asd;
Uses
    CRT;
var
    fil,
    fout     : Text;
    count,
    count2,
    count3,
    ts       : Byte;
    str,
    rts      : array [1..100] of String;
    chp      : char;
    bol      : Boolean;
begin
    ClrScr;
              Assign(fil, 'C:/12.txt');
              Assign(fout, 'C:/123.txt');
              Reset(fil);
              ReWrite(fout);


              ts := 1;


              for count := 1 to 3 do
                  begin
                        Write('‚ўҐ¤ЁвҐ [',count,']=');
                        ReadLn(rts[count]);

                  end;                                         bol := False;

              while NOT EOF(fil) do
              begin
                  ReadLn(fil, chp);
                            writeln(chp);
                  for count:= 1 to 3 do
                        begin
                              if chp = rts[count] then Bol := True;
                              if (count = 3) and (bol = False) then WriteLn(chp);

                        end;
               end;



{              for count:= 1 to ts do
                  for count2:= 1 to length(str[count]) do
                      for count3:= 1 to 3 do
                          begin
                               chp :=  Copy(str[count2],count2,1);
                               if (count3 = 3) and (bol = False) then WriteLn(chp);
                               if chp = rts[count3] then bol := True;
                          end;

 }
              close(fout);
              close(fil);
    ReadKey;
end.

М

Используй теги кода Паскаля, а не Цитату. Lapp

[мисс_граффити]

через множества не пробовал?