Скажите пж чего дает ошибку 201? - Free Pascal

program N_2;
 uses crt;
 const rrr=100500;
 var p: boolean;
 ll:integer;
 n,m,k,l,q,nnn,w,e,r,t,y,u,i,o,aa,ad,af,ag,ah,aj,ak,al,da,z,x,c,boo,rr,r1,r2,r3,pptk :integer;
begin
 p:=false;
 randomize;
 clrscr;
 writeln ('ЏҐ*в*Ј®*®ў§«*¬лў*⥫м. ‚ўҐ¤ЁвҐ Ї*а®«м');
 readln (ll);
 if (ll=rrr)
  then
  begin
   n:=random(5);
   writeln ('');
   m:=random (1000);
   q:=m div 100;
   w:=m mod 100 div 10;
   e:=m mod 10;
   k:=random (1000);
   r:=k div 100;
   t:=k mod 100 div 10;
   y:=k mod 10;
   l:=random (1000);
   u:=l div 100;
   i:=l mod 100 div 10;
   o:=l mod 10;
   z:=random (1000);
   aa:=z div 100;
   ad:=z mod 100 div 10;
   af:=z mod 10;
   x:=random (1000);
   ag:=x div 100;
   ah:=x mod 100 div 10;
   aj:=x mod 10;
   c:=random (1000);
   ak:=c div 100;
   al:=c mod 100 div 10;
   da:=c mod 10;
   if (n=0)
    then
     begin
     boo:=m               ;
     writeln (z,x,m,c,k,l);
     end;
   if (n=1)
    then
     begin
     boo:=m               ;
     writeln (m,x,z,k,c,l);
     end;
   if (n=2)
    then
     begin
     boo:=m               ;
     writeln (l,m,c,k,z,x);
     end;
   if (n=3)
    then
     begin
     boo:=m               ;
     writeln (z,k,c,m,x,l);
     end;
   if (n=4)
    then
     begin
     boo:=m               ;
     writeln (l,x,k,z,c,m);
     end;
   if (n=5)
    then
     begin
     boo:=m;              ;
     writeln (c,k,x,l,m,z);
     end;
   pptk:=0;
    while (pptk<3) do
    begin
    writeln ('‚ўҐ¤ЁвҐ Є®¤ ў§«®¬*');
    readln (rr);
    r1:=rr div 100;
    r2:=rr mod 100 div 10;
    r3:=rr mod 10;
    if (r1=q) and (r2=w) and (r3=e)
     then
      p:=true;
       if (p=false)
      then
      begin
      pptk:=pptk+1;
      if (not(r1=q) and (r2=w) and (r3=e)) or ((r1=q) and not(r2=w) and (r3=e)) or ((r1=q) and (r2=w) and not(r3=e))
       then writeln ('2');;
 
        if (not(r1=q) and not(r2=w) and (r3=e)) or ((r1=q) and not(r2=w) and not(r3=e)) or (not(r1=q) and (r2=w) and not(r3=e))
       then writeln ('1');;
 
         if not(r1=q) and not(r2=w) and not(r3=e)
        then writeln ('0');;
       end;
     end;
    end;
   readln
end.