procedure CountPhrasesFromFile;

var
  myfile: Text;
  result: integer;

begin

  AssignFile(myFile, 'MyPhrases.txt');
  RESET(myFile);

  result := 0;

  WHILE NOT EOF(myFile) DO
  begin

  readln(myfile);
  inc(result);

  end;

  writeln(result);

end;