работа с множествами

Цитата Булат Шакиров @ 28.11.13, 11:24

Счас поковыряюсь

Добавлено 27 минут назад

program gr;
  uses crt;
type
  s=(basik, paskal, prolog, cu, logo);
  names=array [s] of string[20];
  x=set of s;
  yaz=array[1..5] of x;
const
  NamesStr : Names =('basik', 'paskal', 'prolog', 'cu', 'logo');
var
  i:s;
  m:yaz;
  g,t,t1,t2,t3,t4:x;
  k,j:integer;
begin
  clrscr;
  writeln('1 basic');
  writeln('2 paskal');
  writeln('3 prolog');
  writeln('4 cu');
  writeln('5 logo');
  writeln('любая клавиша следущий вуз');
 
  for j:=1 to 3 do
    begin
      t:=[];
      write('введите номера для ',j,'-го вуза ');
      repeat
        read(k);
        case k of
          1:include(t,basik);
          2:include(t,paskal);
          3:include(t,prolog);
          4:include(t,cu);
          5:include(t,logo)
 
        else
          break;
        end;
      until false;
      m[j]:=t;

опять выводит неверный результат, либо его вообще не выводит..
не понимаю почему(

Напишите, какие данные вы вводили.

Цитата Булат Шакиров @ 28.11.13, 13:48

Напишите, какие данные вы вводили.

ну просто ввожу номера языков для каждого вуза, к примеру:
123
234
514
пробовал как слитно писать, так и через пробел

Число ентер, число ентер, выход другой символ кроме 1..5
Вот так у меня отработало
Прикреплённый файл____________________.png (61,22 Кбайт, скачиваний: 383)

Цитата Булат Шакиров @ 28.11.13, 14:12

Число ентер, число ентер, выход другой символ кроме 1..5
Вот так у меня отработало

ну вроде так работает)
спасибо большое)