Множества, Как их ввести?? Опции

[Олег]

Привет.
Вот такая проблема: задали лабу но тему множества. Я все (ну почти) сделал:

Код

program laba3;
uses crt;
type
food=(bread,butter,milk,fish,salt,cheese,sugar,tea);
assort=set of food;

var
shop:array[1..3] of assort;
i:integer;
c:boolean;
q:food;

function Fts(f:food):string;
begin
case f of
      bread:Fts:='Хлеб';
      butter:Fts:='Масло';
      milk:Fts:='Молоко';
      fish:Fts:='Рыба';
      salt:Fts:='Соль';
      cheese:Fts:='Сыр';
      sugar:Fts:='Сахар';
      tea:Fts:='Чай';
end;
end;

begin
clrscr;
shop[1]:=[milk,butter];
shop[2]:=[milk,butter,salt];
shop[3]:=[milk,butter,tea];
Writeln('Продукты, которых нет ни в одном из магазинов:');

for q:=bread to tea do
begin
   for i:=1 to 3 do
       begin
        if (q in shop[i]) then c:=true else c:=false;
        if c=true  then i:=3;
       end;
if c=false then writeln(fts(q));
end;

readkey;
end.

Есть только одна проблемка, как ввести содержание магазинов не в коде проги, а во время ее выполнения?

Заранее спасибо.

Сообщение отредактировано: volvo - 17.06.2006 10:31