дан одномерный  массив . Упорядочить массив удалив нули со сдвигом влево ненулевых элементов.

const n=10;var a:array [1..n] of integer;i,j,k,l:integer;begin{создание и вывод массива}for i:=1 to n do    begin    a[i]:=random(21)-10;    write (a[i],' ');    end;writeln;{сортировка массива}for j:=1 to n dofor i:=1 to n-1 doif a[i]>a[i+1] then   begin   k:=a[i];   a[i]:=a[i+1];   a[i+1]:=k;   end;{Удаление нулей}k:=0;while k<>n do      begin      k:=k+1;      if a[k]=0 then         begin         l:=l+1;         for i:=k to n-1 do         a[i]:=a[i+1];         end;      end;{Вывод массива}for i:=1 to n-l dowrite (a[i],' ');end.