Вот это уже конкретная заява. Кто-то говорил, что иформация лишняя? В задаче требовалось найти, каким по счету будет последний элемент. Нигде не сказано, что другие элементы не нужны. Когда в считалочку играешь, ты же не выгоняешь из круга всех.. типа кто остался тот и выйграл. Нет! Считалочка - это лишь способ найти последнего... А потом уже начинается игра.
Не с проста же раньше в задачах писали, что элементы нужно уничтожать. Суть-то не в том, чтобы уничтожить элемент! Это мы проходили давно! Суть в том, что нужно найти и перескакивать через выбывшие. СМ условие.

Это так, если продукт конечный. Что создал, то и удалю. А это - не программа. Это демонстрация алгоритма перескакивания через выбывшие элементы!

Procedure Schet(s: Byte);
Begin
t := top;
For o := 1 to n - 1 do
Begin
i := 1; <------ ВОТ ОНА!
Repeat
If (t^.off = False) then inc(i);
t := t^.lnk;
Until (i = k) and (t^.off = False);
Writeln('Вычеркнули ',t^.inf);
t^.off := True;
End;
End;

Следоват. код удлиняется, программа усложняется, память засоряется!

Вот и пришли к тому, что это уже техничекие аспекты решения с использованием динамического списка.