Karakter típus - példaprogram

program Kisbetu;
uses Crt;				 
var Nagy, Kis: char;
begin
  ClrScr;				 
  Write('Kérek egy nagybetűt: ');
  ReadLn(Nagy);
  Kis := Chr( Ord(Nagy) + 32 );		{egy nagybetűt kisbetűvé konvertál}
  WriteLn(Kis);
  ReadLn				 
end.