Question

Кто может помочь нарисовать Блок Схему к этой задачки

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..19] of real;
i:integer; max,min:real;
begin
max:=-32000;
min:=32000;
for i:=0 to 19 do
a[i]:=StrToInt(Memo1.lines[i]);
for i:= 0 to 19 do
begin
if a[i]>max then
max:=a[i];
if a [i] end;
edit1.text:=floatToStr(max);
edit2.text:=floatToStr(min);
end;
end.