Идентификаторы

[_Dmitry]

Примерно так

k:=0;
while not eof(f) do
  begin
    readln(f,s);
    repeat
      if (UpCase(s[1]) in ['A'..'Z']) or (s[1] = '_') then k:=k+1;
      n:=pos(' ',s);
      delete(s,1,n);
    until n=0;
  end;

Пишу без тестирования, могут быть ошибки

[Dianochka]

мало чем помогло....

[Sibedir]

Во-первых, дико извиняюсь, что пришлось вчера оставить форум не дав ответа (NetHana Error)
Во-вторых, Dianochka, вы так и не дали хорошего описания задаче. Что такое идентификаторы. Может я чего-то и не знаю. Но ведь все мы люди и нам свойственно не знать всего. И скажите, на милость, я ведь не телепат. Как мне понять какие из этих самых идентификаторов правельные, а какие нет. Неужели приведенный вами текст - это полный текст задачи.
Вот ответ на то, как я вас понял:

const
  GoodIdentif: array [0..3] of String = ('Rulezzz', 'Good', 'ОК', 'Horosho'); // Перечень правельных начал идентификаторов
  GoodChar = ['_', '0'..'9', 'A'..'z', 'a'..'z']; // Перечень символов, из которых состоят идентификаторы
var
  i: Integer;
  c: Char;
  s: String;
  OutputFile, InputFile: TextFile;
  Count: Integer;
begin
  AssignFile (OutputFile, 'My.txt');
  AssignFile (InputFile, 'New.txt');

  Reset (OutputFile);
  Rewrite (InputFile);

  Count := 0;
  s := '';
  while not Eof (OutputFile) do begin
    Read (OutputFile, c);
    if c in GoodChar then begin
      s := s + c;
    end
    else begin
      if s <> '' then begin
        for i := 0 to 3 do begin
          if Pos (GoodIdentif [i], s) = 1 then begin
            Writeln (InputFile, s);
            Inc (Count);
            Break;
          end;
        end;
        s := '';
      end;
    end;
  end;

  s := 'Всего правельных идентификаторов = ' + IntToStr (Count);
  Writeln (InputFile, s);

  CloseFile (OutputFile);
  CloseFile (InputFile);
end;

[Stilet]

Здравствуй Дианочка, по твоему условию тебе подойдет вот такой пример:

var f:text;s:string;k,l:integer;
begin
 assign(f,'qw.txt');
 reset(f);
 while not eof(f) do begin
  readln(f,s);
  k:=1;
  while s[k] in ['a'..'z','_','A'..'Z','0'..'9'] do
   inc(k);
  if (k-1=length(s))and(s[1] in ['_','0'..'9']) then
     writeln(s);
 end;
end.

[Dianochka]

Большое спасибо))) Чтобы я без вас делала))