сортировка массива [Паскаль]

[Pein95]

дан масив все его елементы которые не нуль переставить в начало масива те которые нуль в конец не нарушая порядка нового масива не заводить
вот собственно что я сделал но етот код не работоспособный

Program kj;
const n=10;
var a:array [1..n]of integer;
i,k,m,j:integer;
begin
j:=0;
m:=n;
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
if a[i]=0 then
begin
k:=a[m-j];
a[m]:=a[i];
a[i]:=k;
j:=j+1;
end;
writeln('masuv');
for i:=1 to n do
writeln(a[i]);
end.

[Mad_Cat]

k:=n;
i:=1;
while i<=k do
begin
if a[i]=0 then begin
 for j:=i to k-1 do
  a[j]:=a[j+1]
a[k]:=0;k:=k-1;
end
else inc(i);
end;
for i:=1 to n do
writeln (a[i]);