Верно ли, что в тексте, введенном с клавиатуры, нет русских букв — Pascal(Паскаль)

Uses
 CRT;
Var
 i:integer;
 s:string;
 t:boolean;
begin
clrscr;
readln(s);
t:=true;
for i:=1 to length(s) do
if s[i] in ['А'..'Я','а'..'я','¨','¸']  then
begin
t:=false;
end;
if t then
 write('Есть')
  else
    write('Нету');
readln
end.