АИСД, 1.2

program lab1;

uses
  System.SysUtils,
  windows;

Const
    MIN_AMOUNT_OF_PEOPLE = 1;
    MAX_AMOUNT_OF_PEOPLE = 64;
    MIN_RETIRED_NUMBER = 1;
    MAX_RETIRED_NUMBER = 64;

Type
    Pt = ^Person;
    Person = Record
        Number: Byte;
        Next: Pt;
    End;

Function ReadRetiredNumber() : Integer;
Var
    RetiredNumber: Integer;
    IsCorrect: Boolean;
Begin
    WriteLn('Введите число K в интервале [', MIN_RETIRED_NUMBER, '; ', MAX_RETIRED_NUMBER, ']: ');
    RetiredNumber := 0;
    Repeat
        IsCorrect := True;
        Try
            ReadLn(RetiredNumber);
        Except
            IsCorrect := False;
        End;
        IsCorrect := IsCorrect And (RetiredNumber >= MIN_RETIRED_NUMBER) And (RetiredNumber <= MAX_RETIRED_NUMBER);
        If Not IsCorrect Then
            WriteLn('Пожалуйста, введите корректное значение: ');
    Until IsCorrect;
    ReadRetiredNumber := RetiredNumber;
End;



Procedure MakeListOfPeople(AmountOfPeople: Integer; Var ListOfPeople: Pt);
Var
    FirstPerson: Pt;
    I: Integer;
Begin
    New(ListOfPeople);
    ListOfPeople^.Number := 1;
    FirstPerson := ListOfPeople;
    For I := 2 To AmountOfPeople Do
    Begin
        New(ListOfPeople^.Next);
        ListOfPeople := ListOfPeople^.Next;
        ListOfPeople^.Number := I;
    End;
    ListOfPeople^.Next := FirstPerson;
End;

Procedure PlayRound(RetiredNumber: Integer; ListOfPeople: Pt);
Var
    Counter: Integer;
Begin
    Counter := 1;
    While ListOfPeople^.Next <> ListOfPeople Do
    Begin
        If Counter = RetiredNumber Then
        Begin
            Write(ListOfPeople^.Next^.Number, ' ');
            ListOfPeople^.Next := ListOfPeople^.Next^.Next;
            Counter := 0;
        End
        Else
            ListOfPeople := ListOfPeople^.Next;
        Inc(Counter);
    End;
    Write(' | ', ListOfPeople^.Number);
End;

Procedure PlayGame(RetiredNumber: Integer);
Var
    ListOfPeople: Pt;
    AmountOfPeople: Integer;
Begin
    WriteLn;
    For AmountOfPeople := MIN_AMOUNT_OF_PEOPLE To MAX_AMOUNT_OF_PEOPLE Do
    Begin
        Write('N = ', Format('%-3s|', [IntToStr(AmountOfPeople)]));
        New(ListOfPeople);
        MakeListOfPeople(AmountOfPeople, ListOfPeople);
        PlayRound(RetiredNumber, ListOfPeople);
        WriteLn;
    End;
End;



Var
    RetiredNumber: Integer;
Begin
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    RetiredNumber := ReadRetiredNumber();
    PlayGame(RetiredNumber);

    WriteLn;
    Write('Нажмите Enter для завершения программы...');
    ReadLn;
End.