Блок-схема для задачи

[Marleniken]

Нужна блок-схема. Задание такое:
"Из массива удалить элементы, кратные трем, стоящие между максимальным и минимальным значениями
Пример: из массива A[7]: 1 9 3 4 9 0 0 должен получится массив А[5]: 1 9 4 0 0"

program laba2;
uses crt;
var a:array [1..7] of integer;
i,max,maxi,min,mini,n,k:integer;
begin
clrscr;
n:=7;
max:=-maxint;
min:=maxint;
randomize;
for i:=1 to n do
begin
a[i]:=random(33);
if a[i]>max then
begin
max:=a[i];
maxi:=i;
end;
if a[i]<min then
begin
min:=a[i];
mini:=i;
end;
write(a[i],' ');
end;
writeln;
writeln('Max = ',max,' ego index =',maxi);
writeln('Min = ',min,' ego index =',mini);
writeln('Udalyaem elementi kratnie 3 mezhdy nimi..');
if mini>maxi then
begin
k:=mini;
mini:=maxi;
maxi:=k;
end;
for i:=mini+1 to maxi-1 do
begin
if a[i] mod 3 = 0 then
begin
for k:=i to n-1 do
a[k]:=a[k+1];
n:=n-1;
end;
end;
for i:=1 to n do
write(a[i],' ' );
readkey;
end.

[challengerr]

Примерно так.