zap=record
info:integer
link:lob
end;

for i:=1 to step-1 do {делаем заданное количество шагов.}
  p:=p^.link;{каждый раз переходя на следующий элемент}
writeln(p^.info); {а теперь выводим, на какой элемент указывает p}

writeln((p^.link)^.info)

uses crt;
type
 point=^item;
 item=record
       number:integer;
       next:point;
      end;
var
 first,r:point;
 n,k,l,e:integer;
procedure create(n:integer; var first,r:point);
 var
  m:integer;
   begin
    m:=n;
    n:=n-1;
    first:=nil;
    while n>0 do
     begin
      new®;
      r^.next:=first;
      r^.number:=n;
      first:=r;
      n:=n-1;
     end;
    while r^.next<>nil do
     begin
      r:=r^.next;
     end;
    new(r^.next);
    r^.next^.number:=m;
    r^.next^.next:=first;
 end;
procedure print(e:integer;first:point);
 var
  r:point;
  i:integer;
   begin
    r:=first;
    for i:=1 to e do
     begin
      write(' ',r^.number);
      r:=r^.next;
     end;
   end;
procedure main(first,r:point; n,k:integer);
 var
  i,a:integer;
  q,curr:point;
   begin
    writeln;
    curr:=first;
    for a:=1 to n do
     begin
      i:=0;
      for i:=1 to k-1 do
      begin
       r:=r^.next;
      end;
      q:=r^.next;
      r^.next:=r^.next^.next;
      q^.next:=nil;
      dec(e);
      print(e,r);
      writeln;
     end;
   end;
begin
 clrscr;
 write('Vvedite n: ');readln(n);
 write('Vvedite k: ');readln(k);
 create(n,first,r);
 e:=n;
 write('Kolco: ');
 print(e,first);
 writeln;
 main(first,r,n,k);
 readkey;
end.