блок-схема

[Ostryak]

Помогите нарисовать блок-схему

var
a:array[1..100,1..100] of integer;
m,n: integer;
min,max: Integer;
i,j: integer;

begin
randomize;
n:=strtoint (edt1.text);
m:=strtoint (edt2.text);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=-40+random(80);
Stringgrid1.visible:=True;
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m;
with StringGrid1 do
begin
for j:=1 to RowCount do 
Cells[0,j]:=InttoStr(j); 

for i:=1 to ColCount do 
Cells[i,0]:=IntToStr(i); 

for i:=1 to n do 
for j:=1 to m do 
Cells[j,i]:=IntToStr(a[i-1,j-1]);

if (i=j)and(a[i,j]<min) then min:=a[i,j];
if ((m-i+1)=j)and(max<a[m-i+1,j]) then max:=a[m-i+1,j];
label1.Caption:= inttostr (min);
label2.Caption:= inttostr (max);
end;
end;