Исмользовании меток в программе, непонятная ошибка

  USES CRT,GRAPH;
 
    Type    mas1=array[0..4,0..4] of real;
            mas=array[1..4,1..4] of real;
    Label   A1, A2, A3, A4;
    Label   2,n1;
 
    VAR     R:array[0..5] of real;
           Un,I2,I1:array [0..5] of real;
            GR,yy,G:INTEGER;
            i,j,k,z:word;
            Y:mas1;
            Yn:mas;
            U:ARRAY[1..4] OF REAL;
            I01,I02,P,I13,I14,I24,I34:REAL;
            name:string;
            f:text;
            m:char;
 
 
 {**************** vvod dannix vrychnyju *********************************}
 
 PROCEDURE vruch;
  BEGIN
    TEXTcolor(5);
    writeln('vvedite matricy oporiv');
    TEXTcolor(2);
     for i:=0 to 5 do
       read(r[i]);
       readln;
       TEXTcolor(5);
    writeln('vvedite matricy strymiv');
    TEXTcolor(2);
      for i:=0 to 4 do read(i1[i]);
          readln;
  END;
 
{*************** vvod dannix z faila ***********************************}
 
  PROCEDURE ISFILE;
    begin
     GotoXY(15,5);
     clrscr;
     TEXTcolor(12);
     writeln('Vvod dannih iz faila!     ');
     writeln('  Vvedite imja faila   ');
     readln(name);
     TEXTcolor(2);
     assign (f,'c:\d.txt' ); reset(f);
     while not Eof(f) do
      begin
       for i:=0 to 5 do
       read(f,R[i]);
 
       for i:=0 to 4 do
       read(f,i1[i]);
      end;
     close(f);
    end;
 
{************** formyvannja matrici providnosti **************************}
 
  PROCEDURE PROVODIMOST;
   BEGIN
 
      y[0,1]:=1/r[0];  y[1,0]:=1/r[0];
      y[0,2]:=1/r[1];  y[2,0]:=1/r[1];
      y[0,3]:= 0; y[3,0]:=0; y[0,4]:=0; y[4,0]:=0; y[1,2]:=0; y[2,1]:=0; y[3,2]:=0; y[2,3]:=0;
      y[1,3]:=1/r[2]; y[3,1]:=1/r[2];
      y[1,4]:=1/r[3]; y[4,1]:=1/r[3];
      y[2,4]:=1/r[4];  y[4,2]:=1/r[4];
      y[3,4]:=1/r[5];  y[4,3]:=1/r[5];
   for k:=0 to 4 do
   y[k,k]:=-(y[k,0]+y[k,1] + y[k,2] + y[k,3] + y[k,4]  );
   gotoxy(5,1);
   TEXTcolor(4);
   writeln('povna matrica providnosti ');
   TEXTcolor(2); gotoxy(47,6);
   for i:=0 to 4 do
     begin
       gotoxy(7,6+i);
       for j:=0 to 4 do
       write(Y[i,j]:1:3,'  ');
       writeln
     end;
     gotoxy(7,34);
     writeln('press Any key');
     readkey;
   clrscr;
   for i:=1 to 4 do
   for j:=1 to 4 do
    Yn[i,j]:=Y[i,j];
    gotoxy(5,4);
    TEXTcolor(4);
    writeln('nepovna matrica providnosti ');
    TEXTcolor(2);
    for i:=1 to 4 do
     begin
      gotoxy(7,4+i);
      for j:=1 to 4 do
      write(Yn[i,j]:1:3,'  ');
      writeln
     end;
   delay(500);
  END;
 
 {**************** raschet metodom faktorizacii **************************}
 
  PROCEDURE FAKTOR;
   BEGIN
    for k:=1 to 4 do
      begin
       Yn[k,k]:=1/Yn[k,k];
       for i:=K+1 to 4 do
         begin
          Yn[i,k]:=-Yn[i,k]*Yn[k,k];
          for j:=k+1 to 4 do
          Yn[i,j]:=Yn[i,j]+Yn[i,k]*Yn[k,j];
         end;
       for J:=k+1 to 4 do
       Yn[k,j]:=-Yn[k,j]*Yn[k,k];
      end;
    gotoxy(4,10);
    TEXTcolor(4);
    writeln(' FAKTORIZOVANA MATRICA ');
    TEXTcolor(2);
    for i:=1 to 4 do
      begin
       gotoxy(7,10+i);
       for j:=1 to 4 do
       write(Yn[i,j]:1:2,'  ');
       writeln;
      end;
    delay(500);
 
   for k:=1 to 4 do
    begin
     for J:=4 downto k+1 do
     I1[j]:=I1[j] + Yn[j,k]*I1[k];
     I1[k]:=Yn[k,k]*I1[k];
    end;
   for k:=3 downto 1 do
    begin
     for J:=4 downto k+1 do
     I1[k] := I1[k]+Yn[j,k]*I1[j];
 
    end;
 
   gotoxy(3,16);
   TEXTcolor(4);
   writeln('  matrica zcpada naprug '  );
   TEXTcolor(2);
 
   for i:=1 to 4 do  begin
                       gotoxy(7,16+i);
                       writeln(-I1[i]:0:3);
                       Un[i]:=I1[i];
                      end;
       delay(500);
  END;
 
   {**************** raschet metodom gausa **************************}
procedure Gauss;
 
label
   m3,m4,m10;
var
    n, k,l,i,j,p,z,q,r:integer;
     cm,s,max,c:real;
begin
n:=4;
  for k:=1 to n-1 do
    begin
      l:=k;
        for j:=k+1 to n do
          if abs(Yn[l,k])<abs(Yn[j,k]) then l:=j;
          if Yn[l,k]<>0 then goto m3;
            goto m10;
  m3: if l=k then  goto m4;
     {---------------}
      max:=abs(Yn[k,k]);
    r:=k;
       for i:=k+1 to n do
          if abs(Yn[i,k])>max then
          begin
             max:=abs(Yn[i,k]);
                       end;
       {------------------------}
  m4: for i:=K+1 to n do
       begin
          cm:=Yn[i,k]/Yn[k,k];
          Yn[i,k]:=0;
             for j:=k+1 to n do
             Yn[i,j]:=Yn[i,j]-cm*Yn[k,j];
             i1[i]:=i1[i]-cm*i1[k];
       end;
  clrscr;
    TEXTcolor(4);
    writeln('                   kpok nomer ',k,' ');
    TEXTcolor(2);
 
   for z:=1 to n do
  begin
      gotoxy(20,z+2);
      for p:=1 to n do
          write(' ',Yn[z,p]:6:3);
 
      writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
      gotoxy(51,i+2);
      writeln(i1[i]:6:3);
 
  end;
   writeln('Press Any Key ');
  repeat  until keypressed;
  readkey;
   clrscr;
 
  m10: end;
  Un[n]:=i1[n]/Yn[n,n];
  for i:=n-1 downto 1 do
    begin
      s:=0;
      for j:=i+1 to n do
         S:=S+Yn[i,j]*Un[j];
      Un[i]:=(i1[i]-s)/Yn[i,i];
    end;
 
 
       gotoxy(3,5);
   TEXTcolor(4);
   writeln('  matrica zcpada naprug '  );
   TEXTcolor(2);
 
   for i:=1 to 4 do  begin
                       gotoxy(7,5+i);
                       writeln(-Un[i]:0:3);
                      end;
   delay(500);
  end;
 
 
 
 {*************** osnovna programa ***************************************}
 
                             BEGIN
 
  clrscr;
  GOTOXY(25,2);
  TEXTcolor(4);
  WRITE('dfghfedhg');
  gotoxy(20,3);
  write('dfgghdhi');
  gotoxy(24,4);
  write('" gdfgdf"');
  TEXTcolor(5);
  gotoxy(50,18); write(' VUKONAV: student');
  gotoxy(54,19); write('    dfggh1  ');
  gotoxy(54,20); write('    gdfhfdh');
  gotoxy(50,21);  write('PEREVIRUV: ');
  gotoxy(54,22); write('  dfgdfgh  ');
  gotoxy(30,25); write(' 2010 rik  ');
  GOTOXY(30,12);
  WRITE(' Domashnya robota  ');
  delay(200);
  i:=0;
  textcolor(yellow+blink);
  GOTOXY(32,14);
 
  {** pochinati? tak/ni **}
 
  writeln('STARTING (Y/N) ');
  repeat
  m:=#0;
  if keypressed  then m:=readkey;
  case m of
     #89,#121:i:=1;
     #78,#110: halt;
  end;
  until i=1;
  clrscr;
  GotoXY(15,5);
  TEXTcolor(blue);
  writeln('Iak vvodimo danni?');
  writeln('1-is fijla');
  writeln('2-vrychny');
  read(yy);
  clrscr;
    if yy=1 then isfile;
    if yy=2 then vruch;
   textcolor(white);
  CLRSCR;
  writeln('Ishodni danni:');
  WRITELN;
 
 {************* Vivodimo matricu oporiv **********************************}
 
  TEXTcolor(4);
  WRITELN('Matrica oporiv');
  for i:=0 to 5 do
     write('   ',r[i]:4:2);
     writeln;
     writeln;
 
 {********** Vivodimo matricu tokiv *************************************}
  TEXTcolor(4);
  writeln(' Toki v uzlah');
  for i:=0 to 4 do
  write('  ',i1[i]:1:0);
  TEXTcolor(6);
  gotoxy(2,24);
  writeln('Press Any Key ');
  repeat  until keypressed;
  readkey;
   clrscr;
repeat until keypressed;  readkey;
    textmode(co80);
    TEXTcolor(6);
    writeln('Kakim metodom reshaem?');
    TEXTcolor(7);
    writeln('1-GAuss');
    writeln('2-metodom faktorizacii ');
    readln(z);
    case z of
      1: goto A2;
      2: goto A3;
 {************** realizacia PROCEDUR ************************************}
 
  A2:  PROVODIMOST;
       Gauss;
        goto A4;
 
A3:     PROVODIMOST;
        FAKTOR;
 
 
 
 
 {************* vivodimo napry v yzlax *********************************}
 
  A4: TEXTcolor(3);
  For i:=1 to 4 do
  U[i]:=220+(-Un[i]);
  gotoxy(50,4);
  TEXTcolor(4);
  write(' naprugi v uzlah  ');
  for i:=1 to 4 do
    begin
     TEXTcolor(2);
     gotoxy(53,4+i);
     write(I,' Vz.: ',u[i]:3:2,' V');
    end;
  delay(500);
 
 {************ Vivodimo matricu strumiv **********************************}
 
  TEXTcolor(4);
  GOTOXY(50,10); WRITE('Strumi na vidrizkah ');
  TEXTcolor(2);
  I01:=(220-U[1])/r[0];     GOTOXY(53,11); WRITE('VIDR.01: ',I01:3:3,' A');
  I02:=(220-U[2])/r[1];     GOTOXY(53,12); WRITE('VIDR.02: ',I02:3:3,' A');
  I13:=(U[1]-U[3])/R[2];    GOTOXY(53,13); WRITE('VIDR.13: ',I13:3:3,' A');
  I14:=(U[1]-U[4])/R[3];    GOTOXY(53,14); WRITE('VIDR.14: ',I14:3:3,' A');
  I24:=(U[4]-U[2])/R[4];    GOTOXY(53,15);WRITE('VIDR.24: ',I24:3:3,' A');
  I34:=(U[3]-U[4])/R[5];    GOTOXY(53,16);wRITE('VIDR.34: ',I34:3:3,' A');
  delay(500);
 
 {********* vivodimo vtrati aktivnoi potujnosti **************************}
 
  P:=SQR(I01)*R[0] + SQR(I02)*R[1] + SQR(I13)*R[2]  +
     +SQR(I14)*R[3] + SQR(I24)*R[4] + SQR(I34)*R[5];
  GOTOXY(45,19);
  TEXTcolor(4);
  WRITE('Vtrata aktivnoi potujnosti: ');
  GOTOXY(53,20);
  normvideo;
  TEXTcolor(yellow+blink);
  WRITE(' P: ',P:3:3,' Vt');
  gotoxy(23,25);
  TEXTcolor(2);
  writeln('press any key');
    repeat until keypressed;  readkey;
    textmode(co80);
    TEXTcolor(6);
    writeln('zapisyvati rezyltati v fail?');
    TEXTcolor(7);
    writeln('1-ni');
    writeln('2-tak');
    readln(z);
    case z of
      1:goto 2;
      2:    begin
 
  {****************** zapis rezyltatov y fail *********************************}
 
  writeln('vvedit im"ja faila');
  readln(name);
  assign(f,name);
  rewrite(f);
  for i:=1 to 4 do begin
      writeln('vtrati naprygi');
      writeln(f,'U',i,'=',u[i]:4:3);
      writeln;     end;
      writeln('strymi na vidrizkax');
     writeln(f,'I01=',I01:3:1);
     writeln;
     writeln(f,'I02=',I02:3:1);
     writeln;
     writeln(f,'I13=',I13:3:1);
     writeln;
     writeln(f,'I14=',I14:3:1);
     writeln;
     writeln(f,'I24=',I24:3:1);
     writeln;
     writeln(f,'I34=',I34:3:1);
     writeln;
     writeln('vtrati aktivnoi potyjnosti');
     writeln(f,'P=',P:4:3);
       close(f);
    goto 2;
   end;
  end;
                       2:END.