Подсчёт русских букв в строках файла

[гера]

{задан текстовый файл "a.txt". написать программу,
которая считает руские буквы в строках}
program ta;
uses wincrt;

Var f : text;
M:set of 'а'..'я';
i, k : byte;
c : char;
st : string;
Function Count (var f : text) : byte;
Begin k := 0;
Reset (f);
While not Eof (f) do begin
Readln (f, st);
for i := 1 to Length (st) do
if st [i] in ['а'..'я']

then M := M +[ st[i] ]
end;
For c :='а' to 'я' do if c in M then inc(k);
Count := k;
End;
Begin
Assign (f, 'a.txt');
Writeln ('Всего= ', Count(f));
Close (f);
End.



помогите сделать чтоб заглавные буквы тоже искались. я уже по-разному делала не получается((

[RSLoader]

Так проще немного:

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.