Ошибка: Неверное количество параметров процедуры

Type
  TMas = array [1..10] of real;
 
Var
  FName: string;
  A: TMas;
  n: integer;
  
procedure InputArrayFromFile(FName: string; var A: TMas; var n:integer);
Var
  f: text;
  i: integer;
begin
  assign(f,paramstr(1));
  reset(f);
  n:=0; //кол-во элементов массива
  while not EOLn(f) do
  begin
    n:=n+1;  
    read(f, A[n]);
  end;  
  close(f);
end;  
 
procedure Sort1(FName:string; var a: TMas;  N:integer);
Var
  i, j, num: integer;
  min: real; 
  f_out: text;
  
procedure WriteArray(var A: TMas;  n:integer);
Var
  i: integer;
begin
  for i:=1 to n do
    write(f_out, A[i], ' ');
end;
  
begin
  assign(f_out,paramstr(2));
  rewrite(f_out);
  writeln(f_out, 'Кол-во элeментов массива = ', n);
  write(f_out, 'Исходный массив: ');
  for i:=1 to n do
    write(f_out, A[i], ' ');
  writeln(f_out);
 
  for i:=1 to N-1 do
  begin 
   min:=a[i]; num:=i;
   for j:=i+1 to N do
     if a[j]<min then 
     begin 
       min:=a[j]; 
       num:=j 
     end;
   a[num]:=a[i];
   a[i]:=min;
   writeln(f_out,'==после ', i, ' шага сортировки:');
   WriteArray(A, N);
   writeln(f_out);
  end;
  
  writeln(f_out,'Массив после сортировки:');
  WriteArray(A, N);
  
  close(f_out);
end;
 
Begin
  InputArrayFromFile(FName, A, n);
  
  Sort1(A, n);  {73 строчка}
end.