Помогите составить блоксхему, препод не принимает вообще

[Spanchik]

Код Делфи

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  m,n: integer;
implementation
{$R *.dfm}
Function NOD(a,b:Integer):Integer;
var
i:integer;
Begin
  Result:=1;
  Repeat
    If a>b Then
  Begin i:=a; a:=b; b:=i; End;
    Repeat
      b:=b-a;
    Until (b=0) Or (b<a);
    m:=a;
  Until (b=0);
End;
Function NOK(a,b:Integer):Integer;
Begin
  n:=(a*b) Div m;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ((StrToInt(Edit1.Text)=0) or (StrToInt(Edit2.Text)=0)) then begin ShowMessage('Попробуйте снова'); end
else
begin
NOD(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
NOK(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
Edit3.Text:=IntToStr(m);
Edit4.Text:=IntToStr(n);
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If not (Key in ['0'..'9']) then
  Key:=#0;

end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end.

[rrrFer]

что препод не принимает? - блоксхему? - вы ее пытались составить, но ему не понравилось?