function isUpper(ch: char): boolean;
begin
  if ch in ['A'..'Z'] then
    isUpper := true
  else
    isUpper := false;
end;