Подсчёт русских букв в строках файла — Pascal(Паскаль)

var
  f:Text;
  ch:Char;
  i:Integer;
begin
  Assign(f,'Text.txt');
  Reset(f);
  while not EOF(f) do
  begin
    Read(f,ch);
    if ch in [#192..#255,#168,#184] then Inc(i);
  end;
  Close(f);
  Writeln('Russkih bukv: ',i);
  Readln;
end.