Составьте блок-схем для программы, пожалуйста

Program lab4;
const m=40;
var
i,min,index: integer;
found:boolean;
C:array [1..m] of integer;
begin
for i:=1 to m do
begin
C[i]:=-100+random(200);
writeln(C[i]);
end;
min:=1000; index:=-1;
found:=false;
for i:=1 to m do
begin
if C[i]<0 then
if abs(C[i])< abs(min) then
begin
min:=C[i];
index:=i;
found:=true;
end;
end;
if found then

writeln('наименьший по модулю отрицательный элемент:', min,
'его порядковый номер', index)
else
writeln('отрицательных элементов в массиве нет');
end.