function ReadC(sFile: string; var Ch: String): Integer;
var F: TextFile;
    i: integer;
    Test: string;
const Decode: Array [0..297]of String = ('', '', ..........);
begin
 Result := 0;
 AssignFile(F, sFile);
 Reset(F);
 while not EOF(F) do
 begin
  ReadLn(F, Test);
  for i := 0 to 297 do
   if Test = Decode[i] then  Result := Result + 1;
 end;   
 CloseFile(F);
end;