Ошибка: неверное количество фактических параметров - Pascal

Формулировка задачи:

Очень прошу помочь исправить ошибку в моей программе.

Program p6;
Type
    Mas=array[1..50] of integer;
Var
    a1,a2:Mas;
    n: integer;
Procedure Vvod (Var a:Mas; m:integer);
Var
   j:integer;
Begin
    for j:=1 to m do
        a[j]:=random(50)-25;
End;
Procedure Zamena (Var a:Mas; m,k:integer; min:integer);
Var
   j:integer;
Begin
   min:= a[1];
   m:= 1;
   For j:=2 to n do
   If a[j] < min then begin
      min:=a[j];
      m:=j;
   end;
   k:=a[m];
   a[m]:=a[n];
   a[n]:=k;
End;
Procedure Vivod (a:Mas; m:integer);
Var
   j:integer;
Begin
    for j:=1 to m do
        write (a[j]:5);
    writeln;
End;
Function Min(a:Mas; m: integer): integer;
Var j: integer;
Begin
    m:= 1;
    for j:=2 to n do
        if a[j] < a[m] then m:=j;
    Min := m
End;
Begin
     randomize;
     Write ('Введите размерность А1');
     read(n);
     Vvod (a1,n);           {Вызов процедуры ввод}
     Writeln('Массив А1');
     Vivod(a1,n);
     Zamena(a1,n,Min(a1,n));
     Writeln('Измененный массив А1');
     Vivod(a1,n);
     Write ('Введите размерность А2');
     read(n);
     Vvod (a2,n);           {Вызов процедуры ввод}
     Writeln('Массив А2');
     Vivod(a2,n);
     Zamena(a2,n,Min(a2,n));
     Writeln('Измененный массив А1');
     Vivod(a2,n);
End.

Ошибка выводится в строке 52 в Zamena(a1,n,Min(a1,n)); Конечно, далее есть еще ошибки, но они подобного типа.. Кому не сложно - исправьте пожалуйста и объясните что к чему. Очень прошу. Заранее спасибо!)

Решение задачи: «Ошибка: неверное количество фактических параметров»

Листинг программы

const
  r = 50;
 
type
  mas = array [1..r] of integer;
 
var
  
  n: integer;
  A1, A2: mas;
 
procedure zamena(var A: mas; n: integer);
var
  i, V, min, m: integer;
 
begin
  m := 1;
  for i := 2 to n do
    if A[i] < A[m] then m := i;
  V := A[m];
  A[m] := A[n];
  A[n] := V;
  
end;
 
procedure Vvod(var A: Mas; n: integer);
var
  j: integer;
begin
  for j := 1 to n do
    a[j] := random(50) - 25;
end;
 
procedure Vivod(var A: Mas; n: integer);
var
  j: integer;
begin
  for j := 1 to n do
    write(a[j]:5);
  writeln;
end;
 
begin
  randomize;
  Write('Введите размерность А1: ');
  readln(n);
  Vvod(a1, n);           {Вызов процедуры ввод}
  Writeln('Массив А1');
  Vivod(a1, n);
  Zamena(a1, n);
  Writeln('Измененный массив А1');
  Vivod(a1, n);
  Write('Введите размерность А2: ');
  readln(n);
  Vvod(a2, n);           {Вызов процедуры ввод}
  Writeln('Массив А2');
  Vivod(a2, n);
  Zamena(a2, n);
  Writeln('Измененный массив А1');
  Vivod(a2, n);
end.

Объяснение кода листинга программы

Объявлены константа r = 50 и тип данных mas = array [1..r] of integer.
Объявлены переменные n: integer; A1, A2: mas;.
Определена процедура zamena(var A: mas; n: integer), которая меняет местами минимальный элемент массива A с последним.
Определена процедура Vvod(var A: Mas; n: integer), которая заполняет массив случайными числами от -25 до 25.
Определена процедура Vivod(var A: Mas; n: integer), которая выводит элементы массива на экран.
В основной части программы запрашивается размерность первого массива, выводится сообщение Массив А1, выводится сам массив, вызывается процедура zamena, выводится измененный массив, выводится сообщение Измененный массив А1.
Запрашивается размерность второго массива, выводится сообщение Массив А2, выводится сам массив, вызывается процедура zamena, выводится измененный массив, выводится сообщение Измененный массив А1.