Ошибка в создании функции

Program TripleFunction12;
Var  x, y, z, t: real; a: integer;
F:array[1..N] of integer;
  Begin
  Writeln('Enter size of array:   ');
  Read(N);
  Writeln('Enter all value of array:   ');
  Read(F[a]);
   // <- {Встречена процедура, а ожидался оператор.}
  Procedure MinXmassive (x: real; N, a: integer; F:array[1..N] of integer;);
   Begin
   x:=sqr(F[1]);
   for a:=2 to N do
   Begin
   If sqr(F[a])<x then x:=sqr(F[a]);
   End
   End;
   
  Procedure MinYmassive (y, x: real; N, a: integer; F:array[1..N] of integer;)
   Begin
   y:=sqr(F[1]-sqrt(x));
   for a:=2 to N do
   Begin
   If sqr(F[a]-sqrt(x))<y then y:=sqr(F[a]-sqrt(x));
   End
   End;
   
 Procedure MinXmassive (z, y: real; N, a: integer; F:array[1..N] of integer;)
   Begin
   z:=exp(3*ln(F[1]-sqrt(y)));
   for a:=2 to N do
   Begin
   If exp(3*ln(F[a]-sqrt(y)))<z then z:=exp(3*ln(F[1]-sqrt(y)));
   End
   End;
    
  Writeln('The final value:   ', x, y, z);
  End.

program TripleFunction12;
 
type
  vector = array[1..1000] of integer;
 
var
  x, y, z, t: real; 
  n, a: integer;
  
  F: vector;
 
procedure MinXmassive(x: real; N, a: integer; F: vector);
begin
  x := sqr(F[1]);
  for a := 2 to N do
  begin
    if sqr(F[a]) < x then x := sqr(F[a]);
  end
end;
 
procedure MinYmassive(y, x: real; N, a: integer; F: vector);
begin
  y := sqr(F[1] - sqrt(x));
  for a := 2 to N do
  begin
    if sqr(F[a] - sqrt(x)) < y then y := sqr(F[a] - sqrt(x));
  end
end;
 
procedure MinXmassive(z, y: real; N, a: integer; F: vector);
begin
  z := exp(3 * ln(F[1] - sqrt(y)));
  for a := 2 to N do
  begin
    if exp(3 * ln(F[a] - sqrt(y))) < z then z := exp(3 * ln(F[1] - sqrt(y)));
  end
end;
 
 
begin
  Writeln('Enter size of array:   ');
  Read(N);
  Writeln('Enter all value of array:   ');
  for a := 1 to n do
    Read(F[a]);
   {Встречена процедура, а ожидался оператор.}
  Writeln('The final value:   ', x, y, z);
end.