Преоброзить масив таким образом,что бы елементы,равные нулю,размещались послех всех других

program zz1;const n = 20; // задаем количество элементов в массивеvar i, j, k:integer; // задаем переменные целого типаm:array [1..n] of integer;beginfor i:=1 to n do // получаем n чисел случайных и записываем их в массивm[i]:=random(11)-5;for i:=1 to n do // выводим исходный массив на экранwrite(m[i],\' \');writeln; // переходим на новую строку для вывода ответаfor i:=1 to n do beginif m[i] = 0 then begin for j:=i+1 to n do m[j-1]:=m[j];k:=k+1;end;end;for i:=n-k+1 to n do m[i]:=0; // дописываем в конец массива нулиfor i:=1 to n do // выводим полученный массив на экранwrite(m[i],\' \');end.