[Alyonka89]

спасибо огромное за помощь... работает

Код:

repeat
    if (x[i]=0)and(k<4) then
    begin
      del_mass(i,n-k,x);
      k:=k+1;
    end
    else
      i:=i+1;
  until i>=n-k;