Последовательность а1, а2, ...,аn состоит из нулей и единиц. Поместить в начало этой последовательности все нули (программа Паскаль)

const
  nmax=100;
type
  mas=array[1..nmax] of integer;
var
  n,i,j,buf:integer;
  a:mas;
begin
  repeat
    write('Vvedite n->');
    readln(n);
  until n>0;
  for i:=1 to n do
    begin
      a[i]:=random(2);
      write(a[i]:4);
    end;
    writeln;
    for i:=n-1 downto 1 do
      for j:=1 to i do
        if a[j]>a[j+1] then
          begin
            buf:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=buf;  
          end;
  writeln('Uporyadochenniy massiv:');
  for i:=1 to n do
    write(a[i]:4);
readln;
end.

Если имеются в виду энергетические напитки по типу редбулла, то что ж, я не любитель. почему бы и нет? эффект от них по-моему больше плацебо, да и тот - как растворимый кофе кратковременный, и даже! обратный. но это по-моему. : - точно мне пока не известно. большое или высокое, как вам угодно, содержание сахара, не говоря уже об остальных добавках. а что вкус? уж, . энергетические напитки по типу «гаторейда», т.е спортивные энергетические напитки, верно, многие спортсмены их употребляют, но кто знает? я, например, спортсмен, и из моего «жизненного опыта» я бы сказал, что они приносят больше эстетичного удовольствия и отвлекают от стресса, но прямого воздействия не оказывают