В техникуме имеются по следующим видам спорта:

const
  sport : array[0..5] of string = ('лыжи', 'коньки', 'хоккей', 'футбол', 'регби', 'самбо');
 
type
  Ar = array of array of Byte;
  
var
  i, j, temp, count : Byte;
  mass : Ar;
  check : Boolean;
 
begin
  SetLength(mass, 6);
  for i := 0 to 5 do //для каждого вида спорта
  begin
    WriteLn('Введите группы для спорта ', sport[i], ': (конец ввода - 0)');
    temp := 255;
    while ((temp <> 0) and (Length(mass[i]) in [0..10])) do //пока не введён 0 и длина не больше 10 (максимум 10 групп)
    begin
      ReadLn(temp);
      if (temp in [1..10]) then
      begin
        {проверка на дубликаты}
        check := true;
        if (Length(mass[i]) <> 0) then
          for j := 0 to Length(mass[i])-1 do
            if (temp = mass[i, j]) then
            begin
              check := false;
              break;
            end;
        if (check) then //если дубликатов не было
        begin
          SetLength(mass[i], Length(mass[i])+1); //вносим новое значение
          mass[i, (Length(mass[i])-1)] := temp;
        end;
      end;
    end;
  end;
  {1)}
  count := 0;
  for i := 0 to 5 do
    if (Length(mass[i]) = 10) then
      Inc(count);
  WriteLn('все группы записаны на: ', count);
  {2)}
  count := 0;
  for i := 0 to 5 do
    if (Length(mass[i]) > 0) then
      Inc(count);
  WriteLn('хотя бы одна группа записана на: ', count);
  {3)}
  count := 0;
  for i := 0 to 5 do
    if (Length(mass[i]) = 0) then
      Inc(count);
  WriteLn('ни одна группа не записана на: ', count);
  {4)}
  count := 0;
  for i := 0 to 5 do
    if (Length(mass[i]) >= 5) then
      Inc(count);
  WriteLn('хотя бы 5 групп записаны на: ', count);
end.