блок схемы

[Dondiablo67]

Помогите пожалуйста. дали задачу написать программу и к ней блок схему.программу написал а вот с блок схемой не очень дружу.
Нужна схема "Подсчёт суммы элементов по столбцам" и
"Выделение 1-ый строки в отдельный массив и сортировка его по возрастанию".

Вот код Подсчета суммы

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j:integer;
begin
memo2.clear;
summa:=0;
j:=0;
for i:=0 to 5 do begin
summa:=summa+strtoint(StringGrid1.C ells[j,i]);
end;
min:=summa;
summa:=0;
for j:=0 to 4 do begin
summa:=0;
for i:=0 to 5 do begin
summa:=summa+strtoint(StringGrid1.C ells[j,i]);
end;
if summa<min then begin
min:=summa;
n:=j
end;
end;
Memo2.Lines.Add(inttostr(n+1));
Memo2.Lines.Add(inttostr(min));

end;

вот выделение первой строки

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j:integer;
begin
memo3.Clear;
b[1]:=strtoint(StringGrid1.Cells[0,0]);
b[2]:=strtoint(StringGrid1.Cells[1,0]);
b[3]:=strtoint(StringGrid1.Cells[2,0]);
b[4]:=strtoint(StringGrid1.Cells[3,0]);
b[5]:=strtoint(StringGrid1.Cells[4,0]);
for i:=1 to 6 do
for j:=i+1 to 5 do
if b[i]>b[j] then
begin
p:=b[i];
b[i]:=b[j];
b[j]:=p;
end;
for j:=1 to 5 do
memo3.Lines.Add(inttostr(b[j]));
end;