Постановка меток в программе.

Type tx = text;
  Var F,F1: tx; M,K,N,x,,an,am,ob,avt: integer;
   Begin
    assign(F,'input.txt');
    assign(F1,'output.txt');
    rewrite(F1);
    reset(F);
     read(F,N);
     read(F,M);
     read(F,K);
    close(F);
     if (N=<0)or(M=<1)or(K=<2)or(N>10000)or(M>10000)or(K>10000) then
      begin
       writeln('Некорректные данные!');
       goto labl02;
      end;
  labl01;
    if (N mod (K-2) = 0) then
     begin
      an:=N div (k-2);
       if (M mod 2 =0) then am:=M div 2;
       if (M mod 2 >4) then am:=random(M div 2);
       if (M mod 2 <5) then am:=random(M div 2) +1;
      if (an=am) then write(F1,an);
      if (an>am) then write(F1,0);
      if (am>an) then ob:=am-an;
      ob:=ob*2;
      if (ob mod k=0)or(ob mod k>4) then avt:=random(ob/k) + an;
      if (ob mod k=<4) then
       begin
        avt:=random(ob/k) + an+1;
        write(F1,avt);
       end;
     end;
    if (N mod (K-2)<>0) then
     begin
      while (N mod (k-2)<>0) do
       begin
        M:=M-1;
        N:=N+1;
       end;
      if (N mod (K-2)=0) then goto labl01;
     end;
     close(F1);
      reset(F1);
      read(F1,x);
      writeln(x);
      close(F1);
     labl02;
    readln;
  end.

Program avtobus;
  Type tx = text;
  Var F,F1: tx; M,K,N,x,an,am,ob,avt: integer;
  label
   labl01, labl02;
   Begin
    assign(F,'input.txt');
    assign(F1,'output.txt');
    rewrite(F1);
    reset(F);
     read(F,N);
     read(F,M);
     read(F,K);
    close(F);
     if (N<=0)or(M<=1)or(K<=2)or(N>10000)or(M>10000)or(K>10000) then
      begin
       writeln('Некорректные данные!');
       goto labl02;
      end;
  labl01: ;
    if (N mod (K-2) = 0) then
     begin
      an:=N div (k-2);
       if (M mod 2 =0) then am:=M div 2;
       if (M mod 2 >4) then am:=random(M div 2);
       if (M mod 2 <5) then am:=random(M div 2) +1;
      if (an=am) then write(F1,an);
      if (an>am) then write(F1,0);
      if (am>an) then ob:=am-an;
      ob:=ob*2;
      if (ob mod k=0)or(ob mod k>4) then avt:= round(ob/k) + an;
      if (ob mod k<=4) then
       begin
        avt:=round(ob/k) + an+1;
        write(F1,avt);
       end;
     end;
    if (N mod (K-2)<>0) then
     begin
      while (N mod (k-2)<>0) do
       begin
        M:=M-1;
        N:=N+1;
       end;
      if (N mod (K-2)=0) then goto labl01;
     end;
     close(F1);
      reset(F1);
      read(F1,x);
      writeln(x);
      close(F1);
     labl02: ;
    readln;
  end.