Множества Опции

[Athen]

type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);
assort = set of food;
shop = array[1..20] of assort;
Описать процедуру Nal(sh, A), которая по информации из массива Sh типа shop (Sh(i) – это множество продуктов, имеющихся в i-м магазине) присваивает параметру А типа assort множество всех продуктов, которые есть во всех магазинах.

начала делать так:

uses crt;
type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);
    assort = set of food;
    shop = array[1..20] of assort;
procedure nal(sh:shop; a:assort);
 var  i,m,p,j:integer;
 begin
  writeln('vvedite kol-va magazinov');
  readln(m);
  for j:=1 to m do begin
    writeln('vvedite kol-vo productov');
    readln(p);
    writeln('vvedite productu,imeushiesya v magazine: broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe');
    for i:=1 to p do readln(sh[i]);
    for i:=1 to p do
     if sh[i] in shop then


  readln;
  End.

че-то теперь ступор какой-то... наверн за лето забыла все

[volvo]

Вот пример решения подобной задачи:
Примеры решения задач с использованием множеств