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

[dimitruf]

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

[ProBeginner]

Пожалуйста, покажите код в простом текстовом формате.

[dimitruf]

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.