Составить блок-схему к программе или по условию Pascal

const
  nmax=50;
type
  mas=array[1..nmax] of integer;
var
  a:mas;
  i,n,first_zero,second_zero,buf:integer;
  sort:boolean;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-3+random(4);
      write(a[i]:4);
    end;
  writeln;
  {poisk 1 nulevogo el.}
  i:=1;
  while (a[i]<>0) and (i<=n) do
    i:=i+1;
  if i>n then
    writeln('V massive net nulevyh elementov.')
  else
    begin
      first_zero:=i;
      {Poisk 2 nulevogo el.}
      i:=first_zero+1;
      while (a[i]<>0) and (i<=n) do
        i:=i+1;
      if i>n then
        writeln('V massive tolko odin nulevoi element.')
      else
        begin
          second_zero:=i;
          {Sortiruem po ubyvaniyu elsi naideno 2 nulevyh el.}
          sort:=true;
          while sort do
            begin
              sort:=false;
              for i:=second_zero+1 to n-1 do
                if a[i]<a[i+1] then
                  begin
                    buf:=a[i];
                    a[i]:=a[i+1];
                    a[i+1]:=buf;
                    sort:=true;
                  end;
            end;
          writeln('Massiv posle sortirovki:');
          for i:=1 to n do
            write(a[i]:4);
        end;
    end;
end.