Динамические массивы в Delphi

[Razdolbam]

помогите програмку написать.
Дан одномерный массив. Все его элементы, не равные 0, переписать (сохраняя их порядок) в начало массива, а нулевые – в конец (новый массив не заводить).

чет никак недодуматься что в цикле писать

var a:array of integer;
 i,n,k:integer;
 procedure vivod (a:array of integer);
 var i:integer;
begin
 for i:=low(a) to high(a) do
 write(a[i]:4);
 writeln;
end;


begin
randomize;
writeln('n='); readln(n);
setlength(a,n);
for i:=1 to n do a[i-1]:=-5+random(10);
vivod(a); k:=0;
for i:=low(a) to high(a) do
begin
???????
end;
vivod(a);
readln;
end.

[firephenix]

var
  a : array[1..10000] of integer;
  i,n,k : integer;

begin
  readln(n);
  for i:=1 to n do read(a[i]);
  k:=0;
  for i:=1 to n do
    if a[i]<>0
      then begin a[k]:=a[i]; Inc(k); end;
  for i:=k+1 to n do a[i]:=0;
  for i:=1 to n do write(a[i],' ');
  writeln;
  readln(n);
end.

[Летучий_СкилетиК]

Ввашем коде были ошибки...
вроде все исправил

type mass=array [byte] of integer;
var a:mass;
i,n,k,j,t:integer;
procedure vivod (a:mass);
var i:integer;
begin
for i:=low(a) to high(a) do
write(a[i]:4);
writeln;
end;


begin
randomize;
writeln('n='); readln(n);
setlength(a,n);
for i:=1 to n do a[i-1]:=-5+random(10);
vivod(a); k:=0;
for i:=low(a) to high(a) - 1 do
    for j:= i + 1 to high(a) do
    if abs(a[i])<abs(a[j]) then
        begin
              t:=a[i];
              a[i]:=a[j];
              a[j]:=t;
        end;
vivod(a);
readln;
end.

[Grag]

Нормальненько!!!

a : array[1..10000] of integer;

//далее...
k:=0;

//и наконец
then begin a[k]:=a[i];

Хотя нужна работа с динамическим массивом...

[firephenix]

Сообщение от Grag

Нормальненько!!!

a : array[1..10000] of integer;

//далее...
k:=0;

//и наконец
then begin a[k]:=a[i];

Хотя нужна работа с динамическим массивом...

Да, ошибочка.

var
  a : array of integer;
  i,n,k : integer;

begin
  readln(n);
  SetLength(a,n+1);
  for i:=1 to n do read(a[i]);
  k:=0;
  for i:=1 to n do
    if a[i]<>0
      then begin a[k]:=a[i]; Inc(k); end;
  for i:=k+1 to n do a[i]:=0;
  for i:=1 to n do write(a[i],' ');
  writeln;
end.