Блок-схема

[Alex_Mason]

Требуется блок-схема для этой программы:

program zad1;
uses crt;
var a: array [1..100] of integer;
i,n,j,b:byte;
i_max:byte;
max:integer;
begin
clrscr;
writeln('Введите количество элементов массива');
write('n=');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' элемент');
readln(a[i]);
writeln;
max:=a[1];
i_max:=1;
end;
begin
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
i_max:=i;
end;
for i:=i_max downto 2 do
a[i]:=a[i-1];
a[1]:=max;
b:=2;
for i:=2 to n do
if a[i]=0 then begin
for j:= i downto b do
a[j]:=a[j-1];
a[b]:=0; b:=b+1;end;
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a[i]:4);
readln ;
end.