Переписать наибольшую группу положительных элементов наперед массива

const q = 100;
var
  a: array[1..q] of longint;
  i, n, sum, max, b, e: longint;
 
begin
  write('Ðàçìåð ìàññèâà -> ');
  readln(n);
  max := -1;
  sum := 0;
  writeln('Èñõîäíûé ìàññèâ:');
  for i := 1 to n do
    begin
      read(a[i]);
      if a[i] > 0
        then sum := sum + 1
        else begin
               if sum > max
                 then begin
                        max := sum;
                        e := i - 1;
                        b := i - sum
                      end;
               sum := 0
             end
    end;
  if sum > max
    then begin
           max := sum;
           e := n;
           b := e - sum + 1
         end;
  writeln('Èòîãîâûé ìàññèâ: ');
  for i := b to e do
    write(a[i]:3);
  for i := 1 to b - 1 do
    write(a[i]:3);
  for i := e + 1 to n do
    write(a[i]:3);
end.

var
  A, B: array[1..100] of integer;
  N, i, j, imax, count: byte;
  bln: boolean;
  
begin
  write('N = ');
  readln(N); 
  count := 0;
  for i := 1 to N do begin
    read(a[i]);
    if a[i] > 0 then begin
      if bln = false then begin
        j := 0; inc(j); 
        b[j] := a[i]; 
        bln := true
      end
      else inc(j);
      if count < j then begin
          count := j;
          imax := i - j + 1
        end
    end
    else bln := false
  end;
  writeln;
  if count > 0 then begin
    for i := 1 to count do b[i] := a[imax + i - 1]; //запоминаем последовательность положительных чисел
    for i := count + imax - 1 downto count + 1 do a[i] := a[i - count];
    for i := 1 to count do a[i] := b[i];
    writeln('Новая последовательность:');
    for i := 1 to N do write(' ', a[i]) //выводим новую последовательность
  end
  else writeln('Последовательность не имеет положительных чисел');
  writeln
end.