Блок-схема к программе

[OtimJ]

Помогите пожалуйста составить блок-схему к программе. Программу кое как составил, а блоксхему уже неделю как мучаю.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender:
TObject);
procedure Button2Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.
Button1Click(Sender: TObject);

const x=1000;
var
s:string;
f:textfile;
c,n,m,i,j:integer;
begin
c:=0;
val(edit1.text,n,c);
if c<>0 then
begin
edit1.text:='Eror';
exit;
end;
val(edit2.text,m,c);
if c<>0 then
begin
edit2.text:='Ошибка';
exit;
end;
if savedialog1.execute then
begin
s:=savedialog1.files[0];
assignfile(f,s);
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
begin
if (j<i+1) and(j>n-i)
then
write(f,'*')
else
write(f,' ');
end;
writeln(f);
end;
end;

for i:=1 to n do
begin
for j:=1 to m do
begin
if (j>i+1) and(j<n-i)
then
write(f,'*')
else
write(f,' ');
end;
writeln(f);
end;
closefile(f);
end;
end;
end.

[AlDelta]

Результаты мучений в студию.

[OtimJ]

Я с телефона. И я скачал прогу на составление схем. Но препод глянул на мои творения и сказал - я не оч понимаю как твоя программа работает. А схему вообще не понимаю!:-)