Встречено 'end', а ожидалось begin

type
realtype=double;
func=function(n:integer;xx:realtype):realtype;
vek=array[1..40] of realtype;
procedure urav(n:integer;f1:func;var xe:vek);
 
procedure urav;
  LABEL 1,2;
  CONST NN=100;
  EPS=1E-10;
VAR
  I,K:INTEGER;
  H,P,Q,Y,X,A,B,C,Al,A1:REALTYPE;
  AA:ARRAY  [1..50] OF REALTYPE;
  BB:ARRAY  [1..50] OF REALTYPE;
 
// {Первая производная функции FF' (x) в точке x=xc}
function pp(ff:func;xc:realtype):realtype;
var
  xt,t,t1,t2, h:realtype;
begin
  h:=0.00001;
  t1:=ff(n,xc+3*h)+9*(ff(n,xc-2*h)-ff(n,xc+2*h));
  t2:=45*(ff(n,xc+h)-ff(n,xc-h))-ff(n,xc-3*h);
  t:=t1+t2;
  t:=t/(60*h);
  pp:=t;
  if (abs(t)<1E-40) then pp:=0;
end;
{Вторая производная функции FF(x) в точке x=xc}
function VP(ff:func;xc:realtype):realtype;
var 
  tt,t1,t2,t3,h:real;
begin
  h:=0.000001;
  t1:=2*(ff(n,xc-3*h)+ff(n,xc+3*h));
  t2:=-21*(ff(n,xc+2*h)+ff(n,xc-2*h));
  t3:=270*(ff(n,xc+h)+ff(n,xc-h))-490*ff(n,xc);
  tt:=t1+t2+t3;
  tt:=tt/(180*h*h);
  vp:=tt;
  if (abs(tt)<1E-40) then vp:=0;
end;
BEGIN
  WRITELN('ПРОГРАММА РЕШЕНИЯ УРАВНЕНИЙ МЕТОДОМ НЬЮТОНА В ПРОМЕЖУТКЕ [A,B ]'); 
  WRITELN('ПРОГРАММА РЕШЕНИЯ УРАВНЕНИЙ МЕТОДОМ НЬЮТОНА В ПРОМЕЖУТКЕ [A,B ]'); 
  WRITELN('ПРОГРАММА РЕШЕНИЯ УРАВНЕНИЙ МЕТОДОМ НЬЮТОНА В ПРОМЕЖУТКЕ [A,B ]'); 
  WRITELN('ПРОГРАММА РЕШЕНИЯ УРАВНЕНИЙ МЕТОДОМ НЬЮТОНА В ПРОМЕЖУТКЕ [A,B ]'); 
  Write('Введите A:'); readln(a);
  Write('Введите B:'); readln(b);
  {  A:=0;B:=10;}
  H:=ABS((B-A))/NN;
  X:=A;K:=0;
  FOR I:=1 TO NN DO
    BEGIN
      P:=F1(n,X);Q:=F1(n,X+H);
      IF P=0 THEN 
        BEGIN 
          K:=K+1; AA[K]:=X-H/2; BB[K]:=X+H/2
        END
        ELSE
          IF P*Q<0 THEN
        BEGIN
          K:=K+1;
          AA[K]:=X;BB[K]:=X+H;
        END;
      X:=X+H;
    END;
  WRITELN('ОТВЕТ:');
  writeln('------');
  IF K=0 THEN 
    BEGIN
      WRITELN('УРАВНЕНИЕ НЕ ИМЕЕТ РЕШЕНИЙ !!');
      GOTO 1;
    END;
  WRITELN('ИНТЕРВАЛЫ СОДЕРЖАЩИЕ РЕШЕНИЯ:');
  writeln('-----------------------------');
  FOR I:=1 TO K DO
    WRITELN(I,' ',AA[I],' ',BB[I]);
  writeln('Нажмите ВК');
  readln;
  WRITELN('КОРНИ УРАВНЕНИЯ: ');
  writeln('---------------- ');
 
  FOR I:=1 TO K DO
    BEGIN
      Y:=0;
      A:=AA[I];B:=BB[I];
      IF (F1(n,A)*VP(f1,A)>0) THEN X:=A ELSE X:=B;
      2: Y:=X-F1(n,X)/PP(f1,X);
      IF ABS(Y-X)>eps THEN
        BEGIN 
          X:=Y;GOTO 2;
        END;
      xe[i]:=y;
      WRITELN('X',I,'=',Y);
    END;
  1:END;
end.