program MyRangeDemo;

uses
 Forms;

type
 LittleLetter = 'a'..'z';

var
 GoodLetter: LittleLetter;

begin
 GoodLetter := 'b';
 Writeln(GoodLetter);

 Readln;
end.