Замените все группы подряд встречающихся нулей на количество подряд идущих нулей

uses crt;
const nmax=100;
var a:array[1..nmax] of byte;
    n,i,j,k,p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(2); {лучще вводить с клавы, но лень}
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<=n do
if a[i]=0 then{если 0}
 begin
  k:=0;
  j:=i;
  while(j<=n)and(a[j]=0) do
   begin
    k:=k+1;{считаем 0}
    j:=j+1;
   end;
  a[i]:=k;{вместо первого ноля пишем их количество}
  if k>1 then{если их больше 1}
   begin
    for j:=1 to k-1 do{все кроме 1 удаляем сдвигом конца массива влево}
     begin
      for p:=i+1 to n-1 do
      a[p]:=a[p+1];
      n:=n-1;
     end;
   end;
  i:=i+1;{к следующему}
 end
else i:=i+1;{если не 0, сразу к следующему}
writeln('Сжатие массива:');
for i:=1 to n do
write(a[i]:4);
readln
end.