Прошу помочь с составлением программ в Паскаль (см. внутри)

[апельсин]

ПОМОГИТЕ ПЛИЗ С ЗАДАЧЕЙ НА МАСИВ.ДАН МАСИВ М={0,5,4,0,7,5,0,0,8,1} НУЖНО ВЫВЕСТИ НА ЭКРАН НЕ НУЛЕВЫЕ ЭЛЕМЕНТЫ МАСИВА,СОЩИТАТЬ НУЛЕВЫЕ ЭЛЕМЕНТЫ МАСИВА. ПОМОГИТЕЕЕЕ!!!!

----
От модератора
Не флудите в чужих темах,иначе кары не миновать

[Данила]

var i,count : integer;
a: array [1..10] of integer;
begin
count:=0;
for i:=1 to 10 do begin
  if a=0 then inc(count) else
  write(a,' ');
end;
writeln (count,'нулевых элементов');
end.