Блок-схема

[romashon]

Помогите пожалуйста с блок-схемой к программе.

Программа: дана вещественная матрица размером 7х7,все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.

program gg;
uses crt;
var
a: array [1..7, 1..7] of integer;
i,j,max,min,kominstr,kominstl,komax str,komaxstl: integer;
proizv:real;
begin
clrscr;
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
writeln ('введите элемент ',i,' строки, ',j,' столбца');
read (a[i,j]);
end;
end;
max:=a[1,1];
min:=a[1,1];
komaxstr:=1; komaxstl:=1; kominstr:=1; kominstl:=1;
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if A[i,j]>max then
begin
max:=a[i,j];
KOmaxSTR:=i;
KOmaxSTL:=j;
end;
if a[i,j]<min then
begin
min:=a[i,j];
KOminSTR:=i;
KOmaxSTL:=j;
end;
end;
end;
writeln ('максимальный элемент ',max);
writeln ('находится в строке №', komaxstr); writeln ('столбце№',komaxstl);
writeln ('минимальный элемент',min);
writeln ('находится в строке №', kominstr); writeln ('столбце№',kominstl);
proizv:=a[komaxstr,1]*a[1,kominstl]+a[komaxstr,2]*a[2,kominstl]+a[komaxstr,3]*a[3,kominstl]+a[komaxstr,4]*a[4,kominstl]+a[komaxstr,5]*a[5,kominstl]+a[komaxstr,6]*a[6,kominstl]+a[komaxstr,7]*a[7,kominstl];
writeln ('скалярное произведение строки с макс. эл. на столбец с мин. эл.',proizv:7:0);
repeat until keypressed;
end.

[Rusl92]

нужно нарисовать блок схему к программе?

[romashon]

уже нет=) справился сам)