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

var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do 
  begin
    if not (s[i]  in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) and (s[i] <> ' ') then begin
      writeln('есть символы');
      break
    end;
  end;
end.