//Имеется тип - запись Student с полем pol:
type
Student=record
pol: (m,j);
end;
var
st1: Student;
begin
st1.pol:=m;
writeln(st1.pol);// Ошибка нельзя выводить данные этого типа
end.
typeЕсли ObjectPascal (к примеру, GPC, FPC или Delphi) - то можно попробовать пошаманить с RTTI, может и удастся чего сделать без доп. массива.
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.
uses TypInfo;Разумеется, можно получение строки вынести в отдельную функцию.
// ...
WriteLn (GetEnumName (TypeInfo (Gender), Integer (st1.pol)));