Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. +2 задачи. - Pascal

Формулировка задачи:

Помогите с задачками,уважаемые програмисты. 1.Дан массив a(n).Все элементы с нечётными номерами,расположеные после первого минимального элемента оформить в виде отдельного массива. 2.Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. 3.Дано произвольное предложение.Расположить в нём слова в порядке увеличения их длины (я так понял от меньшего к большему ).

Решение задачи: «Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. +2 задачи.»

Листинг программы

For i:=2 To Round (sqrt(n)) Do
IF n mod i = 0 THEN
Begin
simple := false;
exit
end;

Объяснение кода листинга программы

Переменная i принимает значения от 2 до округленного значения корня из n.
Если n делится на i без остатка, то переменная simple устанавливается в false, и цикл прерывается командой exit.
Если n не делится на i без остатка, то переменная simple устанавливается в true.
Код не использует вложенные списки.