Задача Иосифа (через уравнение)

var
n, m, i, j: integer;
 
begin
write('Введите количество человек (n): ');
readln(n);
write('Введите номер, по которому будут казнить (m): ');
readln(m);
 
var people: array[1..100] of boolean;
for i := 1 to n do
people[i] := true;
 
i := 1;
 
while n > 1 do
begin
j := 0;
repeat
if people[i] then
Inc(j);
if j = m then
begin
people[i] := false;
Dec(n); 
break;
end;
Inc(i);
if i > n then
i := 1;
until false;
end;
 
for i := 1 to n do
if people[i] then
begin
writeln('Номер оставшегося в живых человека: ', i);
break;
end;
 
for i := 2 to m do
if n mod i = 1 then
begin
writeln('номер, при котором в живых останется первый: ', i);
break;
end;
end.

##
 
// Если надо вернуть что-то из блока кода - объявляем прямо перед этим блоком
var a: integer;
begin
  // Объявление, присвоение и ввод на 1 строке
  // Тип integer - компилятору это и так понятно, потому что присваивают integer
  // Явно писать "var x: integer := ..." не обязательно
  var x := ReadlnInteger('x =');
  // Тут использовать можно
  x.Println;
  a := x;
end;
a.Println;
// А это уже не сработает
//x.Println;
 
// А тут var прямо в заголовке цикла
for var i := 1 to 10 do
  i.Print;