program WrongOrder;
var a: T;
type T = 'a'..'z';
begin
   a := 'a';
   write('a = ', a, eol)
end.