Halmaz típus - példaprogram, IN operátor

program Kisbetu;
uses Crt;				 
var Nagy, Kis: char;
begin
  ClrScr;				 
  Write('Kérek egy nagybetűt: ');
  ReadLn(Nagy);
  if Nagy in ['A'..'Z'] then 
    begin
      Kis := Chr( Ord(Nagy) + 32 );
      WriteLn(Kis)
    end
  else
      WriteLn('Ez nem nagybetű');
  ReadLn				 
end.