THIS OUR PROGRAMM:
program magician;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
    i,j,n,m,k,t:integer;
    a:array[1..10000] of integer;
begin
     readln(n,m);
     for i:=1 to n do
     readln(a[i]);
     if(m>n) then m:=m mod n;
          t:=0;
          i:=m;
               repeat
                    i:=i+1;
                    t:=t+1;
                    write(a[i]);
                    if i=n then i:=0;
               until t=10;
end.

Maybe you should input(n=12,m=12)to check your error.