Перенос расчетной части программы в отдельный юнит

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    StringGrid3: TStringGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
var
N,M:integer;
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
Val(Edit1.Text,N,i);
Val(Edit2.Text,M,j);
if (i<>0) or (j<>0) or (N<0) or (M<0) then
  begin
  label3.Visible:=True;
  Edit1.Text:='';
  Edit2.Text:='';
  Exit
  end;
StringGrid1.ColCount:=N;
StringGrid2.ColCount:=M;
StringGrid1.Enabled:=True;
StringGrid2.Enabled:=True;
StringGrid1.Enabled:=True;
BitBtn2.Enabled:=True;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
A,B,C:array[1..100] of single;
k,i,j:integer;
F:single;
S:string;
begin
for i:=1 to N do
  begin
  Val(StringGrid1.cells[i-1,0],A[i],k);
  if k<>0 then
    begin
    label4.Visible:=True;
    exit;
    end;
  end;
 
for i:=1 to M do
  begin
  Val(StringGrid2.cells[i-1,0],B[i],k);
  if k<>0 then
    begin
    label4.Visible:=True;
    exit;
    end;
  end;
for i:=1 to N do
      begin
      C[i]:=A[i];
      end;
 
for i:=N+1 to M+N do
        begin
        C[i]:=B[i-N];
        end;
 
 For j:=1 to M+N-1 do
 For i:=1 to M+N-1 do
          if C[i]<C[i+1] then
          begin
          F:=C[i];
          C[i]:=C[i+1];
          C[i+1]:=F;
          end;
 
 StringGrid3.ColCount:=N+M;
 StringGrid3.Visible:=True;
 For i:=1 to N+M do
            begin
            str(C[i]:3:0,S);
            StringGrid3.cells[i-1,0]:=s;
            end;
 
 
 
        
end;
 
end.

unit Unit2;
 
interface
var
N,M:integer;
procedure Make;
 
implementation
procedure Make;
begin
for i:=1 to N do
      begin
      C[i]:=A[i];
      end;
 
for i:=N+1 to M+N do
        begin
        C[i]:=B[i-N];
        end;
 
 For j:=1 to M+N-1 do
 For i:=1 to M+N-1 do
          if C[i]<C[i+1] then
          begin
          F:=C[i];
          C[i]:=C[i+1];
          C[i+1]:=F;
          end;
 
 
end.