работа с одномерным массивом

[Carter]

Нужно циклически сдвинуть положительные элементы массива, расположенные перед первым нулем на одну позицию влево

[hiho]

nFind := 0;
while (nFind = 0) and (i <= N) do begin
   if (A[i] = 0) then nFind := i;
   inc(i);
end;
{ nFind - номер первого нулевого}
if (nFind > 0) then 
   for i := 1 to nFind - 1 do begin
      { приведите пример, каким образом производить сдвиг }  
      { например, если у нас первый элемент положительный, куда его сдвигать? } 
   end;

[Carter]

Пытался сделать по вашему примеру, но программа не работает (может я тупой ). Вот полный код моей программы:

PHP код:

uses crt;
type myarray=array[1..20] of integer;
var mas : myarray;
    m, n, c: integer;

procedure vybor(var n, m : integer);
begin
 repeat
  write('Vvedite razmernost neobhodimogo massiva ot 1 do 20: ');
  readln(n);
  if (n<=0) or (n>20) then writeln('Neverno zadana razmernost') else
   begin
    writeln('Vyberite sposob zapolneniya massiva:');
    writeln('1 - s klaviatury');
    writeln('2 - generator sluchainyh chisel');
    readln(m);
    if (m<>1) and (m<>2) then writeln('Nepravilno vybrano znachenie');
   end;
 until (n<=20) and (n>0) and (m=1) or (m=2);
end;

procedure vvod_klaviatura (var mas : array [1..20] of integer; n : integer);
var i : integer;
begin
 writeln('Vvedite elementy massiva: ');
  for i:=1 to n do
   read(mas[i])
end;

procedure vvod_random (var mas : array [1..20] of integer; n : integer);
var i : integer;
begin
 randomize;
  for i:=1 to n do
   mas[i]:=random(100)-50;
end;


procedure vyvod (a : array [1..20] of integer; n : integer);
var i : integer;
 begin
  write('Massiv: ');
   for i:=1 to n do
    write(a[i],'  ');
    writeln(' ');
end;


procedure zadanie(var a : array [1..20] of integer);
var i, nFind, c : integer;
begin
 nFind := 0;
 while (nFind = 0) and (i <= n) do
  begin
   if (a[i] = 0) then nFind := i;
   inc(i);
  end;
 c:=a[i];
 if (nFind > 0) then
  for i := 1 to nFind - 1 do
   begin
    a[i]:=a[i+1];
    a[nFind]:=c;
   end;
end;
  

{---MAIN---}
begin
 clrscr;
 vybor(n,m);
  if m=1 then vvod_klaviatura(mas,n);
  if m=2 then vvod_random(mas,n);
 vyvod(mas,n);
 write('Elementy cyklicheski sdvinuty: ');
 zadanie(mas);
 readln;
end.