Вопрос по работе record

[Halifath]

Доброго времени. Возник вопрос по работе с типом record в Pascal.
Пусть у меня описывается запись, где содержимым одного поля должен быть простой перечислимый тип. (Например:
Type
MarStatus(married, single, divorced);
...
Person=record
MyStatus=MarStatus;
end;
var
p1:Person;
Begin
Read(p1.MyStatus);

Ввести в данном случае данные по понятной причине не получается. Как в таком случае нужно делать?

[Скандербег]

Как в таком случае нужно делать?

Смотря что делать.
Перечислимый тип во внутреннем представлении - это всего лишь числа от 0. Если ввести число (Readln), например, 1, то в перечислении это будет символ "single".

type
  MarStatus = (married, single, divorced);
  Person=record
    MyStatus : MarStatus; 
  end;

var
  p1:Person;
  n : byte;
begin
  readln(n);
  p1.MyStatus := MarStatus(n); {преобразование}
...

Повнимательнее при объявлении типов.
- MarStatus(married, single, divorced); (пропущен символ "=")
- MyStatus = MarStatus (синт. ошибка - нужен символ ":" вместо "=")