Из массива удалить самую длинную цепочку четных элементов

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
clrscr;
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] mod 2=0)and((i=1)or(a[i-1]mod 2<>0)) then{если четное и или первое
                                                  или перед ним не четное}
 begin
  j:=i; {начало группы}
  k:=0;{ее длина}
  while(j<=n) and(a[j] mod 2=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 {выведем группу}
  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;
readln
end.