KLENINA_counting

//link https://yadi.sk/d/kiDnVNHsoF5cfw
program schitalka;

type
   liste = record
      next: ^liste;
      inf: string;
   end;

   list = record
      list1, list2, list3, list4: ^liste;
   end;

procedure vvod(var listw: list);
var
   y: string;
begin
   begin
      writeln('ведите им¤ ', y, ' участника ');
      readln(y);
      New(listw.list1^.next);
      listw.list1^.inf := y;
      listw.list1 := listw.list1^.next;
   end;
end;

var
   listw: list;
   i, n, k, l, m, b: integer;
   s1, s2: integer;
   s:string;

begin
   New(listw.list1);
   listw.list2 := listw.list1;
   writeln('ѕрограмма - считалочка');
   writeln();
   writeln('— помощью считалочки циклично перебирают всех участников поочереди (участник - слово из считалочки), пока не закончатс¤ слова из считалочки, победителем будет тот, на котором будет последнее слово из считалочки');
   writeln();
   write('Ќапишите считалочку: ');
   readln(s);
   write('¬ведите количество слов в считалочке: ');
   readln(n);
   write('¬ведите количество участников: ');
   readln(k);
   while m <> k do
      begin
         vvod(listw);
         m := m + 1;
      end;
   listw.list1^.next := listw.list2;
   listw.list1 := listw.list1^.next;
   for i := 1 to n do
   begin
      listw.list1 := listw.list1^.next;
   end;
   writeln('ѕобедитель: ', listw.list1^.inf);
end.