Блок-схема Pascal

[shemshur2014]

Здравствуйте. Помогите, пожалуйста. Никак не могу понять, как составить блок схему на эту задачу:

const
n = 20;

var
i, amin, amax, s: integer;
a: array[1..n] of integer;
flag: Boolean;

begin
Randomize;
writeln('Исходные данные:');
amin := 1000;
amax := -1000;
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i]:4);
if i mod 2 = 0 then
begin
if amax < a[i] then amax := a[i];
end
else
if amin > a[i] then amin := a[i];
end;
writeln;
s := amin + amax;
flag := false;
i := 1;
while (i <= n) and (not flag) do
begin
flag := (a[i] = s);
i := i + 1
end;
if flag then writeln('Элемент ', i - 1, ' равен ', s)
else writeln('Нет искомого элемента')
end.