программа не запускается выдает Error 36 begin expected

Program V_Prizma;
 
Uses Crt;
 
Read Function Vp(x1,y1,z1,x2,y2,z2,x3,y3,z3:Integer):Integer;
Begin
Write   Vp:=x1*y2*z3-x1*z2*y3-y1*x2*z3+y1*z2*x3+z1*x2*y3-z1*y2*x3;
End;
 
Var x,y,z:array[1..10] of Integer;
n,n1,n2,n3,kol,V,v1,v2,v3,Vmax:Integer;
 
   Write('Введите количество векторов(не более 10):');
   Read(kol);
   WriteLn('Введите координаты векторов:');
   For n:=1 To kol Do Begin
      Write('X[',n,']=');
      ReadLn(x[n]);
      Write('Y[',n,']=');
      ReadLn(y[n]);
      Write('Z[',n,']=');
      ReadLn(z[n]);
   End;
 
   Vmax:=0;
   For n1:=1 To kol Do
      For n2:=2 To kol Do
         For n3:=3 To kol Do
            if (n1<>n2) And (n2<>n3) And (n1<>n3) Then
               Begin
               writeln(n1,'-',n2,'-',n3);
               V:=Vp(x[n1],y[n1],z[n1],x[n2],y[n2],z[n2],x[n3],y[n3],z[n3]);
               If V>Vmax Then
                  Begin
                  Vmax:=V;
                  v1:=n1;
                  v2:=n2;
                  v3:=n3;
                  End;
               End;
 
   WriteLn('Максимальный объем призмы будет достигнут на векто-рах:',v1,',',v2,' и ',v3);
   WriteLn('Максимальный объем призмы равен:',Vmax);
   ReadLn;
   ReadLn;
End.

Read Function Vp(x1,y1,z1,x2,y2,z2,x3,y3,z3:Integer):Integer;

Write Vp:=x1*y2*z3-x1*z2*y3-y1*x2*z3+y1*z2*x3+z1*x2*y3-z1*y2*x3;

Uses Crt;
     Function Vp(x1,y1,z1,x2,y2,z2,x3,y3,z3:Integer):Integer;
              Begin
                   Vp:=x1*y2*z3-x1*z2*y3-y1*x2*z3+y1*z2*x3+z1*x2*y3-z1*y2*x3;
              End;
Var x,y,z:array[1..10] of Integer;
    n,n1,n2,n3,kol,V,v1,v2,v3,Vmax:Integer;
begin
    Write('Ââåäèòå êîëè÷åñòâî âåêòîðîâ(íå áîëåå 10):');
    Read(kol);
    WriteLn('Ââåäèòå êîîðäèíàòû âåêòîðîâ:');
    For n:=1 To kol Do
        Begin
             Write('X[',n,']=');
             ReadLn(x[n]);
             Write('Y[',n,']=');
             ReadLn(y[n]);
             Write('Z[',n,']=');
             ReadLn(z[n]);
        End;
    Vmax:=0;
    For n1:=1 To kol Do
          For n2:=2 To kol Do
              For n3:=3 To kol Do
                  if (n1<>n2) And (n2<>n3) And (n1<>n3) Then
                     Begin
                          writeln(n1,'-',n2,'-',n3);
                          V:=Vp(x[n1],y[n1],z[n1],x[n2],y[n2],z[n2],x[n3],y[n3],z[n3]);
                          If V>Vmax Then
                             Begin
                                  Vmax:=V;
                                  v1:=n1;
                                  v2:=n2;
                                  v3:=n3;
                             End;
                     End;
    WriteLn('Ìàêñèìàëüíûé îáúåì ïðèçìû áóäåò äîñòèãíóò íà âåêòî-ðàõ:',v1,',',v2,' è ',v3);
    WriteLn('Ìàêñèìàëüíûé îáúåì ïðèçìû ðàâåí:',Vmax);
    ReadLn;
End.