Ошибка exitcode 201

program  simplecs;
type mas=array[1..100] of real;
     mas1=array[1..100] of integer;
     label 2, 3, 10;
     var
         r,s,t,a,u,x,xk:mas;
         nb:mas1;
        i,l,k,z1,mi,m1,ni,ne,ip,m,n:integer;
         eps,tmin,teta:real;
procedure sol00(r,s,t:mas;var a,x:mas; n,m:integer);
   var k1,k2,k3,j,mj,l,i:integer;
   BEGIN
       l:=m-2;
   for j:=1 to n do
   begin
   mj:=m*j;
   a[mj]:=0;
   for i:=1 to l do
   begin
   k1:=m*(j-1)+i;
   k2:=l*(j-1)+i;
   a[k1]:=r[k2];
   a[mj]:=a[mj]-r[k2];
   end;
   end;
   for i:=1 to n do
   begin
   k3:=m*i-1;
   a[k3]:=t[i];
   end;
   x[m-1]:=0;
   x[m]:=0;
   for i:=1 to l do
   begin
   x[i]:=s[i];
   x[m]:=x[m]-x[i];
end;END;
 procedure sol01(var u:mas;m:integer);
 var i,j,l:integer;
    BEGIN
    for j:=1 to m do
    for i:=1 to m do
    begin
      l:=m*(j-1)+i;
      u[l]:=0;
      if (i-j)=0 then
      u[l]:=1;
      end;
      END;
  procedure sol02(u,a:mas;m,n,j:integer;var del:real);
  var i,im,ij:integer;
  begin
  del:=0;
  for i:=1 to m do
  begin
  im:=i*m;
  ij:=m*(j-1)+i;
  del:=del+u[im]*a[ij];
  end;
  EnD;
  procedure sol03(var tmin:real;a,u:mas;nb:mas1;m,n:integer;var k:integer);
               var  bul,i,j,m1:integer;
               del:real;
     begin
     tmin:=0;
     m1:=m-2;
     for j:=1 to n do
     begin
    bul:=1;
    i:=1;
    while (bul=1) and (i<=m1) do
    if (j-nb[i])=0  then bul:=2
    else
    i:=i+1;
    if bul<>2 then
    begin
    sol02(u,a,m,n,j,del);
    if (del-tmin)<=0 then
    begin
    tmin:=del;
    k:=j;
    end;
    end;
    end;
    end;
    procedure sol04(u,a:mas;m,n,k:integer;var xk:mas);
    var
        ij,jk,i,j:integer;
      begin
     for i:=1 to m do
     begin
     xk[i]:=0;
     for j:=1 to m do
     begin
     ij:=m*(j-1)+i;
     jk:=m*(k-1)+j;
     xk[i]:=xk[i]+u[ij]*a[jk];
     end;
     end;
     end;
 procedure sol05(x,xk:mas;m:integer;var l:integer;var teta:real;eps:real);
 var
    i,m1:integer;
    r:real;
  begin
    teta:=10000;
    m1:=m-2;
     for i:=1 to m1 do
     if(xk[i]-eps)>=0 then
     begin
     r:=x[i]/xk[i];
    if (r-teta)<=0 then
    begin
    teta:=r;
    l:=i;
    end;
    end;
    end;
  procedure sol06(var x,xk:mas;m,l:integer;var teta:real);
  var i:integer;
  begin
    for i:=1 to m do begin
    If (i-l)<>0 then
    x[i]:=x[i]-teta*xk[i]
    else
    x[i]:=teta;
    end;
    end;
  procedure sol07(var u:mas;m,l:integer;xk:mas);
  var
        m1,j,lj,i,ij:integer;
       begin
    m1:=m-2;
    for j:=1 to m1 do
    begin
    lj:=m*(j-1)+l;
    u[lj]:=u[lj]/xk[l];
    end;
    for i:=1 to m do
    for j:=1 to m1 do
    if (i-l)<>0 then
    begin
    ij:=m*(j-1)+i;
    lj:=m*(j-1)+l;
    u[ij]:=u[ij]-u[lj]*xk[i];
    end;
    end;
  procedure sol08(u,a:mas;m,j:integer;var del:real);
  var mi,ij,i:integer;
  begin
  del:=0;
    for i:=1 to m do
    begin
    mi:=m*i-1;
    ij:=m*(j-1)+i;
    del:=del+u[mi]*a[ij];
    end;
    end ;
 procedure sol09(var tmin:real;var k:integer;a,u:mas;nb:mas1;m,n:integer);
 var bul,m1,i,j:integer;
     del:real;
   begin
   tmin:=0;
   m1:=m-2;
   for j:= 1 to n do
   begin
   bul:=1;
   i:=1;
   while (bul=1)  and (i<=m1) do
   if (j-nb[i])=0 then
   bul:=2
   else
   i:=i+1;
   if bul<>2 then
   begin
   sol08(u,a,m,j,del);
   if (del-tmin)<=0 then
   begin
   tmin:=del;
   k:=j;
   end;
   end;
   end;
   end;
procedure sol10(var tmin:real;u,a:mas;nb:mas1;m,n:integer;var k:integer;
eps:real);
 var bul,m1,i,j:integer;
   del,del1:real;
   begin
       tmin:=0;
       m1:=m-2;
    for j:=1 to n do
      begin
        bul:=1;
        i:=1;
     while (bul=1) and (i<=m1) do
         if (j-nb[i])=0 then
           bul:=2
           else
     i:=i+1;
     if bul<>2 then
     begin
     sol02(u,a,m,n,j,del);
     sol08(u,a,m,j,del1);
     if (abs(del1)-eps)<=0 then
     if (del-tmin)<=0 then
     begin
     tmin:=del;
     k:=j;
     end;
     end;
     end;
     end;
BEGIN
  write(' n');
  read(n);
  writeln('m');readln(m);
  writeln(' (eps)=>');read(eps);
  writeln('ip(ip=1 if MAKS;ip=0 if MIN )=>');
  read(ip);
  for i:=1 to n do
  begin
    writeln('t[',i, ']= ');
    read(t[i]);
    end;
  for i:=1 to m-2 do
  begin
  writeln('s[',i, ']= ');
  read(s[i]);
  end;
  for i:=1 to (m-2)*n do
  begin
   writeln('r[',i, ']= ' );
  read(r[i]);end;
  sol00(r,s,t,a,x,n,m);
  if (ip-1)=0 then
  for i:=1 to n do
  begin
   mi:=m*i-1;
   a[mi]:=-a[mi];
 end;
   sol01(u,m);
   m1:=m-2;
   for i:=1 to m1 do
   nb[i]:=100011+i;
   ni:=0;
   ne:=1;
3:sol03(tmin,a,u,nb,m,n,k);
2:if (tmin+eps)>=0 then
   if (ne)=1 then
   if (x[m]+eps)>=0 then
   begin
   ne:=2;
   for i:=1 to m1 do
   if (nb[i]-10000)>0 then
   ne:=3 ;
   if ne=3 then
   begin
   sol10(tmin,u,a,nb,m,n,k,eps);
    goto 2;
    end  else
    begin
    sol09(tmin,k,a,u,nb,m,n);
    goto 2;
    end;end else
    begin
    ip:=2;
    goto 10;
    end
    else
    if (ip-1)<>0 then
    begin
    x[m-1]:=-x[m-1];
    ip:=1;
    goto 10;
    end
    else
    begin
    ip:=1;
    goto 10;
    end
    else
    begin
    sol04(u,a,m,n,k,xk);
    sol05(x,xk,m,l,teta,eps);
    if (teta+5-10000)<0 then
    begin
    sol06(x,xk,m,l,teta);
    sol07(u,m,l,xk);
    nb[l]:=k;
    ni:=ni+1;
    if ne<>1 then
    if ne=2 then
    begin
    sol09(tmin,k,a,u,nb,m,n);
    goto 2;
    end
    else
    begin
    sol10(tmin,u,a,nb,m,n,k,eps);
    goto 2;
    end
    else
    goto 3;end
     else
     begin
     ip:=3;
     goto 10;
     end; end;
10:  writeln('ip=',ip);
 if ip=1 then begin
    for i:=1 to m-2 do
        writeln('x[', nb[i], ']=',x[i]:13);
        for i:=1  to m-2  do
        writeln('nb[',i,']=',nb[i]);end;
        writeln('f=', x[m-1]:13);
        readln; readln;readln;
END.

nb[i]:=100011+i;

{$mode ObjFPC}