Модули. Получение из двух векторов третьего - Turbo Pascal

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

Помогите, пожалуйста. Задание:С помощью подпрограммы с параметром процедурного типа получить из двух векторов третий, каждый элемент которого равен меньшему элементу исходных векторов, и вектор, состоящий из сумм соответствующих компонентов исходных векторов. В отдельном модуле должен быть описан процедурный тип с относящимися к нему подпрограммы, а в другом модуле основная подпрограмма. Есть примерный код, но не могу правильно описать модули.

program vektori;
uses 
  crt, Unit_, Unit_1;
var
  a,b,c,d: vector1;
  i,n: integer;
begin
  randomize;
  clrscr;
  { Вводим количество элементов }
  Write('n = ');
  Readln(n);
  { Создаём вектор }
  for i:=1 to n do
  begin
    a[i]:=random(200);
    b[i]:=random(300);
  end;
  { Вывод исходных векторов }
  writeln('Исходные векторы.');
  write('Первый вектор: ');
  for i:=1 to n do
    write('[',a[i],']');
  writeln;
  write('Второй вектор: ');
  for i:=1 to n do
    write('[',b[i],']');
  writeln;
  writeln('Изменённые векторы.');
  { Вычисляем вектор минимальных элементов }
  Vichislenie(a,b,c,n,min);
  { Выводим вектор минимальных элементов }
  write(' Вектор минимальных элементов: ');
  for i:=1 to n do
    write('[',c[i],']');
  writeln;
  { Вычисляем вектор суммы элементов }
  Vichislenie(a,b,d,n,sum);
  write(' Вектор суммы элементов: ');
  for i:=1 to n do
    write('[',d[i],']');
  writeln;
  readln;
end.

unit Unit_;
interface
 
uses Unit_1;
const
  max=100;
procedure min(a,b: vector1; var c: vector1; n: integer);
procedure sum(a,b: vector1; var c: vector1; n: integer);
implementation
{$F+}
 
procedure min;
var
  i: integer;
begin
  for i:=1 to n do
    if a[i]<b[i]
      then c[i]:=a[i]
        else c[i]:=b[i];
end;
procedure sum;
var
  i: integer;
begin
  for i:=1 to n do
    c[i]:=a[i]+b[i];
end;
 
{$F-}
end.

unit Unit_1;
interface
const
  max=100;
type
  vector1=array[1..max]of integer;
  proc1=procedure(a,b: vector1; var c: vector1; n: integer);
procedure Vichislenie(a,b: vector1; var c: vector1; n: integer; proc: proc1);
implementation
procedure Vichislenie;
begin
  proc(a,b,c,n);
end;
end.

Решение задачи: «Модули. Получение из двух векторов третьего»

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

unit Unit_1;
interface
const
  max=100;
type
  vector=array[1..max]of integer;
  proc=procedure(a,b: vector; var c: vector; n: integer);
  procedure min(a,b: vector; var c: vector; n: integer);
  procedure sum(a,b: vector; var c: vector; n: integer);
 
implementation
{$F+}
procedure min;
var i:integer;
begin
for i:=1 to n do
if a[i]<b[i] then c[i]:=a[i] else c[i]:=b[i];
end;
procedure sum;
var i:integer;
begin
for i:=1 to n do
c[i]:=a[i]+b[i];
end;
{F-}
end.

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

В данном коде представлен модуль Unit_1, который содержит три процедуры, определенные в типе proc. Эти процедуры, min, sum и procedure, принимают три аргумента: два вектора a и b, а также переменную c типа vector. Аргумент n представляет собой целое число, которое указывает на количество элементов в каждом из векторов. Процедура min выполняет минимальный элемент из двух векторов и сохраняет его в новом векторе c. Процедура sum выполняет сумму элементов двух векторов и сохраняет ее в новом векторе c. Третья процедура, также называемая procedure, выполняет произвольную операцию над двумя векторами и сохраняет результат в новом векторе c. В реализации каждой из этих процедур используется цикл for, который проходит по каждому элементу векторов a и b. Внутри цикла значение элемента сравнивается с соответствующим значением в векторе b. Если текущий элемент меньше, чем элемент в b, то его значение копируется в c. Если текущий элемент больше или равен элементу в b, то значение c остается неизменным. После завершения цикла, все элементы вектора c будут содержать минимальные или максимальные значения из векторов a и b.