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

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 do

for i:=1 to n-1 do

if a[i]>a[i+1] then

begin

k:=a[i];

a[i]:=a[i+1];

a[i+1]:=k;

end;

{Удаление нулей}

k:=0;

while kn 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 do

write (a[i],' ') ;

end.