Задание в университет

[GimB0]

Прошу вас помочь,ибо вам это будет легко решить)Pliz

Задан массив C(m),M<=(меньше либо равно)25,содержащий несколько нулевых элементов.Сжать его,выбросив эти элементы.Распечатать исходный массив и переформированный.

Зараннее спасибо!

[Mad_Cat]

i:=1;
while i<=m do
begin
while (c[i]<>0) and (i<=m) do
inc(i);
if c[i]=0 then begin
for k:=i to m-1 do
c[k]:=c[k+1];
m:=m-1;
end;
end;