Необходимо устранить ошибку

[Натали17]

Написала программу,сделано с глобальной переменной, сложение чисел нормально работает, а вычитание тупит, вместо ответа какое-то непонятное число появляется, вне зависимости какие числа введены, помогите пожалуйста...
unit1

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Unit2;
var global: integer;
type
TGlavnoe = class(TForm)
slogenie: TButton;
raznost: TButton;
delenie: TButton;
ymnogenie: TButton;
cosinus: TButton;
sinus: TButton;
znach1: TEdit;
znach2: TEdit;
faktorial: TButton;
vkvadrat: TButton;
procedure slogenieClick(Sender: TObject);
procedure raznostClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Glavnoe: TGlavnoe;
n, t: integer;
procedure Summa(n, t: integer);
function minus(n, t: integer): integer;
implementation
{$R *.dfm}
procedure TGlavnoe.slogenieClick(Sender: TObject);
begin
n:=StrToInt(znach1.Text);
t:=StrToInt(znach2.Text);
Summa(n, t);
Rezultat.ShowModal;
end;
procedure Summa (n, t: integer);
begin
Global:=n+t;
end;
procedure TGlavnoe.raznostClick(Sender: TObject);
begin
n:=StrToInt(znach1.Text);
t:=StrToInt(znach2.Text);
Global:= minus(n, t);
Rezultat.ShowModal;
end;
Function minus(n, t: integer): integer;
begin
Global:=n-t;
end;
end.

unit2

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TRezultat = class(TForm)
naimenovanie: TLabel;
Otvet: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Rezultat: TRezultat;
implementation
uses Unit1;
{$R *.dfm}
procedure TRezultat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Rezultat.Close;
glavnoe.Show;
end;
procedure TRezultat.FormShow(Sender: TObject);
begin
glavnoe.znach1.Clear;
glavnoe.znach2.Clear;
glavnoe.Visible:=False;
otvet.Caption:=IntToStr(global);
end;
end.

[ViktorR]

Ежели посмотреть вот сюда,

procedure TGlavnoe.raznostClick(Sender: TObject);
begin
n:=StrToInt(znach1.Text);
t:=StrToInt(znach2.Text);
Global:= minus(n, t);
Rezultat.ShowModal;
end;
Function minus(n, t: integer): integer;
begin
Global:=n-t;
end;
end.

то можно видеть, что

Global:= minus(n, t); // Это вызов функции

а это ее описание:

Function minus(n, t: integer): integer;
begin
Global:=n-t;
end;

Но в описании нет возвращаемого результата, т.е. надо бы:

minus := n-t;

или

Result := n-t;  // Это как раз в Делфи

Где-то так ...