У вас уже есть таблица с данными можно создать 2 запроса с справочником где будет взаимодействие с вашей таблицей и не будет такого что в 13:00 преподователь ведет пары в разных классах делаете сперва 1 запрос на лекции где он делит их согласно вашим предпочтениям далее второй запрос практика где так же указываете данные из таблиц и запросов потом немножко корректируете все проверяете и сохраняете запрос и жмете выполнить должно получится что он поделит их согласно установленного расписания вами в определенные дни указанные вами
a:array[1..1000] of integer;
begin
write('введите количество элементов массива');
read(n);
for i:=1 to n do begin
a[i]:=random(10);
if a[i]<=6 then s:=s+a[i];
end;
writete('ответ:', s);
end.