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

Uses
 CRT;
var
 s:string;
 i:integer;
 t:boolean;
begin
clrscr;
readln(s);
t:=false;
for i:=1 to length(s) do
if not(s[i] in ['A'..'Z','a'..'z','а'..'я','А'..'Я','¨','¸',' ']) then
begin
 t:=true
end;
if t then
  write('Да')
else
 write('Нет');
readkey
end.