Вывод поля записи Опции

[ofenod]

//Имеется тип - запись Student с полем pol:
type
Student=record
pol: (m,j);
end;

var
st1: Student;

begin
st1.pol:=m;
writeln(st1.pol);// Ошибка нельзя выводить данные этого типа
end.

[volvo]

Если Турбо-Паскаль - то:

type
   Gender = (m, f);
   Student =
   record
      pol : Gender;
   end;
const
   GenderTitle : array[Gender] of Char = ('m', 'f');

var
   st1 : Student;
begin
   st1.pol := m;
   writeln (GenderTitle [st1.pol]);
end.

Если ObjectPascal (к примеру, GPC, FPC или Delphi) - то можно попробовать пошаманить с RTTI, может и удастся чего сделать без доп. массива.