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

[Rusik1992]

#Code

var
i ,j,k: integer;
Sum1:real;
n,m,h:integer;
B:array[1..18,1..16] of real;
C:array[1..11,1..18] of real;
Alfa:array[1..16] of real;
Sum:array[1..18] of real;
begin
Form5.Show;
m:=16;
n:=18;
h:=11;
for i:=1 to 18 do
begin
for j:=1 to 16 do
Begin
B[i,j]:= StrToFloat(Form2.StringGrid1.Cells[i,j]);
End;
end;
for i:=1 to 11 do
begin
for j:=1 to 18 do
Begin
C[i,j]:= StrToFloat(Form3.StringGrid1.Cells[i,j]);
end;
end;

for i:=1 to 16 do
Begin

Alfa[i]:= StrToFloat(Form1.StringGrid1.Cells[1,i]);

End;

Sum1:=0;
for i:=k to h do
Sum[k]:=0;

for k:=1 to h do
Begin
for j:=1 to m do
Begin
for i:=1 to n do
Begin
Sum1:=Sum1+(Alfa[i]*B[i,j]*C[j,k]);
End;

End;
Sum[k]:=Sum1;
Sum1:=0;
End;

for k:=1 to h do
begin
Form5.StringGrid1.Cells[1,k]:=Form4.StringGrid1.Cells[1,k];
Form5.StringGrid1.Cells[2,k] := FloatToStr(Sum[k]);

end;
end;