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.

program laba ;
type
   // Сначала описываешь все типы, которые будешь использовать
   // Можно и без этого обойтись, но нежелательно, потом будут проблемы
   // с приведением типов.
   pol = (m, f);
   place = (gorod, selo);
   yes_no = (da, net);

   // Теперь твоя запись
   people =
   record
      fam: string[20];
      imya: string[20];
      godro: 1900..2011;
      mesto: place;
      obwejitie: yes_no;
      grupp: 101..103;
		case mw:pol of
         m: (voen: boolean);
         f: (merry: boolean);
   end; // Здесь достаточно только одного End, он закроет и Case и Record

var
   student: array [1..100] of people;
   i, n, count: integer; // Счетчик нельзя называть M, такое имя уже есть в описании pol
   ans : integer;

begin
   writeln ('vvedite kol-vo studentov');
   readln (n);
   for i:=1 to n do
   with student[i] do // Идем по массиву student
   begin
      writeln ('vvedite svediniya o', I , '-m studente');
      writeln ('vvedite familiy'); readln(fam);

      // Место рождения: просим ввести число, обозначающее нужное место
      // Потом это число преобразуем к типу Place
      writeln ('mesto : (0 = gorod; 1 = selo)');
      readln(ans); mesto := place(ans);

      // Таким же образом вводим и информацию, нужно ли общежитие
      // ... попробуй сделать это сам ...

      // Все остальные поля
   end;
   writeln ('vvod zakonchen');
   writeln ;

   count := 0;
   for i:=1 to n do
      if student[i].obwejitie = da then count := count + 1;

   writeln(' obwejitie nyshno: ', count);
end.

program laba ;
type

   pol = (m, f);
   place = (gorod, selo);
   yes_no = (da, net);
   people =  record
      fam: string[20];
      imya: string[20];
      godro: 1900..2011;
      mesto: place;
      obwejitie: yes_no;
      grupp: 101..103;
		case mw:pol of
         m: (voen: boolean);
         f: (merry: boolean);
   end;

var
   student: array [1..100] of people;
   i, n, count: integer;
   ans : integer;

begin
   writeln ('vvedite kol-vo studentov');
   readln (n);
   for i:=1 to n do
   with student[i] do
   begin
      writeln ('vvedite svediniya o', I , '-m studente');
      writeln ('vvedite familiy');
      readln(fam);
      writeln ('vvedite imya');
      readln(imya);
      writeln ('vvedite god rozdeniya (1900-2011)');
      readln(godro);
      writeln ('mesto : (0 = gorod; 1 = selo)');
      readln(ans); mesto := place(ans);
      writeln ('obwejitie : (0 = nado; 1 = nenado)');
      readln(ans);
      obwejitie := yes_no(ans);
      writeln ('pol : (0 = male; 1 = female)');
      readln(ans);
      obwejitie := pol(ans);
      writeln ('vvedite group');
      readln(grupp);
   end;
   writeln ('vvod zakonchen');
   writeln ;

   count := 0;
   for i:=1 to n do
      if student[i].obwejitie = da then count := count + 1;

   writeln(' obwejitie nyshno: ', count);
end.

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

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