Условия такие:
Используем циклический список

1)Задаем размер (количество людей), период выбывания и соответственно количество оставшихся участников

2)Сплошное представление реализуем в 2-х массивах

первый - на размещение данных
второй - на указатели, где расположены следующие элементы


Всех кто поможет в решении задачи заранее благодарю

Основные моменты первого пункта:
1) TType Ss=^ Igrok;
Igrok=Record
number : Byte; next :Ss
End;
var ocher : Ss;
2) n - размер, p - период выбывания, k - количество оставшихся.
For i:=1 to (n-k) do
Begin
{отсчитываем очередного кандидата на удаление}
For j:=1 to p-1 do
ocher:=ocher^.next;
{удаляем элемент, следующий за очередным}
q:=ocher^.next;
writeln(‘Из круга выходит игрок под номером ’,q^.number);
ocher^.next:=q^.next; Dispose (q)
End;