Исключить из массива группу с наибольшим числом подряд идущих положительных элементов

 const n=3;
var
  i,i1,i2,n1:integer;
  a:array[0..n] of integer;
  chet,chet1:integer;
begin
  for i:=0 to n do
    readln(a[i]);
  for i:=0 to n do
    begin
      if a[i] > 0 then
        begin
          chet1:=chet1+1;
          i2:=i;
        end
      else
        if chet1>chet then
          begin
        chet:=chet1;
            i1:=i2;
            chet1:=0;
      end;
    end;
  for i:=i1 to i1+n-chet do
    a[i]:=a[i+chet];
  n1:=n-chet;
  writeln('Ostatok');
  for i:=0 to n1 do
  write (a[i],'  ');
  writeln('');
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе группы положительных:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
ip:=0;//начало группы
i:=1;
mx:=0;//максимальная длина
while i<=n do
if (a[i]>0)and((i=1)or(a[i-1]<=0)) then//если полож. и или первый или перед ним не полож.
 begin
  j:=i; //начало группы
  k:=0;//ее длина
  while(j<=n) and(a[j]>0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then //если больше макс
   begin
    mx:=k;//это макс
    ip:=i;//начадо
   end;
  i:=i+k;//перешагиваем
 end
else i:=i+1;//иначе пропускаем
if ip=0 then write('В массиве нет положительных элементов')
else
 begin
  writeln('Группа с наибольшим количеством положительных элементов:');
  for i:=ip to ip+mx-1 do //dsdtltv uhegge
  write(a[i],' ');
  writeln;
  for i:=1 to mx do //удалим сдвигами влево
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Удаление этой группы:');
  for i:=1 to n do
  write(a[i],' ');
end;
end.