циклический сдвиг элементов массива

[Carter]

Доброго времени суток!
Помогите разобраться с задачей. Нужно сдвинуть только положительные элементы массива, которые расположены перед первым нулем. Ноль я нашел, я дальше - в ступоре...
Вот начало кода:

procedure zadanie(var a : array [1..n] of integer);
var i, y, n: integer;
begin
 for i:=n downto 1 do
  if (a[i] = 0) then y:=i;
 for i:=1 to y-1 do