блок-схема

[Ксения Юрьевна]

Здравствуйте,помогите нарисовать блок-схему для данного кода =(
procedure TForm1.btn1Click(Sender: TObject);
const
SIZE=10;
var

a:array[1..SIZE] of integer;

obr:integer;

verh:integer; { верхняя граница поиска }

niz: integer; { нижняя граница поиска }

sred:integer;

found:boolean; { TRUE — совпадение образца с элементом массива }

n:integer;

i:integer;

begin
//ввод массива


for i:=1 to SIZE do

a[i]:=StrToInt(StrnGrd1.Cells[i-1,0] ) ;

obr:= StrToInt(Edt1.text);

// поиск
verh:=1;

niz:=SIZE;
n:=0;

found:=FALSE;
lbl3.caption:='';

if Chk1.State = cbChecked

then lbl3.caption:='verh'+#9+'niz'#9'sre d'#13;

//бинарный поиск в массиве
repeat

sred:=Trunc ( (niz-verh) /2)+verh;
if Chk1.Checked

then Lbl3.caption:=lbl3.caption +IntToStr(verh) + #9 +IntToStr(niz) + #9 +IntToStr(sred) + #13; n:=n+1;

if a[sred] = obr then found:=TRUE else

if obr < a[sred]

then niz:=sred-1 else verh:=sred+1;

until (verh > niz) or found;

if found

then lbl3.caption:=lbl3.caption

+'Совпадение с элементом номер '

+ IntToStr(sred)+#13 + 'Сравнений '

+ IntToStr(n)

else lbl3.caption:=lbl3.caption

+'Образец в массиве не найден.';

end.