Помогите задачку на множества разобрать:

По значению s (страна) присвоить переменной st континент, на котором она находиться

  type
     country=(...);
     continent=(...);
  var
      s:country;
      st:continent
 

я так думаю, что смысла вводить все страны нету, просто пару стран с каждого континента 
задать в множестве, а потом в программе определёным странам присвоить значения континентов и
она должна (я так думаю) по названию страны выводить континент на котором она находится.
Список стран программа должна предложить сама. Вот реализовать это я пока не могу...    

Ну думаю проще всего сделать 7 переменных-множествадля каждого континента и хранить в них названия стран ввиде множества;
Чтобы узнать на каком континенте достаточно оператором in проверить по очереди не входит ли страна в данный континент.

можна и так конечно только вот названия типов и переменых 
 type
     country=(...);
     continent=(...);
  var
      s:country;
      st:continent

это всё уже есть в самом условии...

provod, чет я не понял где тут множества
 - это объявление перечисляемого типа, может вообще не использовать множества, или это требуется по условию задачи?

кажется enum используют для описания множества

Да множество описывается легко

Но что с ним делать?

alexeis1, вот такой набросок вроде устроил автора: