Записи, Задача описывающяя количество студентов с данными о них Опции

[Student91]

Задача:
Составить структуру, содержащую информацию о студентах факультета: указав фамилию и год рождения, а также, если это мужчина, то сообщить, военнообязанный ли он, а если это женщина, то указать, замужем ли она, городские, иногородние, имеющие жилплощадь, нуждающиеся в общежитии. Определить количество студентов нуждающихся в общежитии.Я запутался как описать "да, нет" , "город , село" и как правельно вводить . Но все остальное вроде написал вот :

program laba ;
Type pol=(m,w);
       people=record
            fam:string[20];
            imya:string[20];
            godro:1900..2011;
            mesto:gorod,selo; (вот тут как правельно описать "gorod,selo" и ниже тот же вопрос про да \нет)
            obwejitie: da,net;
            grupp: 101..103
		case mw:pol of
                     m: ( voen: boolean);
                      w: ( merry: boolean);
                 end;

end;
var student: array [1..100] of people;
   i,m,n: integer;
begin
   writeln ('vvedite kol-vo studentov');
   readln (n);
   for i:=1 to n do
   with people[i];
   begin
      writeln ('vvedite svediniya o', I , '-m studente');
      writeln ('vvedite familiy');
      readln  тут незнаю как ввести правельно.
      ...

   end;
   writeln ('vvod zakonchen');
   writeln ;
   Выбираем тех кому нужна общага
   for i:=1 to n do
      if student[i].obwejitie=da then
      m:=m+1;
         writeln(' obwejitie nyshno: ',m);
end.

Зарание спасибо за помощь , реально не понимаю

[volvo]

Не на Case у тебя ошибку должно выдавать. А на

      writeln ('pol : (0 = male; 1 = female)');
      readln(ans);
      obwejitie := pol(ans); // Вот эту строку
      writeln ('vvedite group');
      readln(grupp);

Поле, где хранится пол студента, как называется у тебя: MW? Вот и пиши:

      mw := pol(ans); // Вот так вот

, тогда ошибок не будет...