Подключение юнита к программе

program Project10;
 
{$APPTYPE CONSOLE}
{5. Тело кинутое вертикально вверх из скоростью V0 , вывести на экран
координаты Y тела через каждую секунду (или доли секунды), и максимальную высоту подъему. }
uses
  SysUtils,
  Windows;
 
const
  g=9.80665;
var
  V0, t , p : integer;
  h: array [1 .. 100] of real;
  Hmax : real;
procedure High(i:integer);
  begin
    For i:=1 to t do
      begin
        h[i]:=V0*i-(g*sqr(i))/2;
        if h[i] < 0 then h[i] := 0;
        writeln(h[i]:3:3);
      end;
  end;
begin //main
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  writeln('Введите начальную скорость тела и время полета:'); readln(V0, t);
  writeln('Координаты тела Y через каждую секунду полета:');
  High(p); 
  Hmax:= sqr(V0) / (2*g);     
  writeln('Максимальная высота подъема:');
  writeln(Hmax:3:3);
  readln;
end.

unit unit1;
 
interface
 
procedure High(t : Integer);
 
implementation
 
var
  h: array [1 .. 100] of real;
 
procedure High(t : Integer);
var
  I : Integer;
begin
  For i:=1 to t do
  begin
    h[i]:=V0*i-(g*sqr(i))/2;
    if h[i] < 0 then h[i] := 0;
    writeln(h[i]:3:3);
  end;
end;
 
end.

program Project10;
 
{$APPTYPE CONSOLE}
{5. Тело кинутое вертикально вверх из скоростью V0 , вывести на экран
координаты Y тела через каждую секунду (или доли секунды), и максимальную высоту подъему. }
uses
  Windows, SysUtils, Unit1;
 
const
  g=9.80665;
var
  V0, t  : integer;
  Hmax : real;
 
begin //main
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  writeln('Введите начальную скорость тела и время полета:'); readln(V0, t);
  writeln('Координаты тела Y через каждую секунду полета:');
  High(t); 
  Hmax:= sqr(V0) / (2*g);     
  writeln('Максимальная высота подъема:');
  writeln(Hmax:3:3);
  readln;
end.