Алгоритм уплотнения

[britva666]

Ребят, помогите спрограммировать!
Целочисленный массив из N элементов уплотнить так, чтобы сохранить порядок следования ненулевых элементов (то есть убрать из массива нулевые элементы поместив их в конец).
Это из урока про массивы, так что там должно быть что то отражено в этом роде

[Bl@ck]

Ну например так (оптимизации никакой, ибо первое что пришло в голову):

for i:=0 to n do begin
if mas[i]=0 then 
 for j:=i to n do mas[j]:=mas[j+1];
if mas[i]=n then mas[n]:=m; end;

n-кол-во элементов в массиве, i,j,m:integer.
Вроде должно работать, проверь.

[britva666]

не работает

[6aJIaJIae4HUK]

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
buf,n:integer;
begin
clrscr;
write(' N -> ');
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
 for j:=1 to n-i do
  if (a[j]=0) and (a[j+1]<>0) then
                                 begin
                                 buf:=a[j];
                                 a[j]:=a[j+1];
                                 a[j+1]:=buf;
                                 end;
writeln;
for i:=1 to n do
write(a[i],'  ');
readln;
end.