Проверка ввода на наличие русского алфавита

[sw47]

Организовать процедуру проверки ввода на наличие только русского алфавита и символов: точка и тире.

Я сделал проверку только на точку и тире. А каким способом сделать на русский алфавит?

procedure Check (x:filerec; var boo:boolean);
var q:integer;
begin
for q:=1 to length(x.fio) do
if (x.fio[q]='.') or (x.fio[q]='-') then boo:=true;
end;

[sw47]

if x.fio[q] in ['А'..'Я'] then boo:=true;

['А'..'Я'] это только заглавные или прописные тоже?

[Johnson]

if (x.fio[q] in ['А'..'Я'])or(x.fio[q] in ['а'..'я']) then