Основные моменты первого пункта:
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;