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

[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

[volvo]

Вот так не устроит:

const
  alpha: string = 'abcdefghijklmn';

var
  f: text;
  ch: char;
  other: set of char;

begin
  assign(f, 'c.in'); reset(f);

  other := [];
  while not eof(f) do begin
    read(f, ch);
    if pos(ch, alpha) = 0 then include(other, ch);
  end;
  close(f);

  for ch := #33 to #255 do { Печатаем все НЕуправляющие символы, присутствующие во множестве }
    if ch in other then write(ch);
  writeln;

end.

?