Массивы, pascal

[Ucheniza]

Найдите количество последовательно расположенных положительных элементов, которыми заканчивается массив

[newerow1989]

var p:array[1..10] of integer;
    i,n:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   n:=0;
   For i:=10 downto 1 do
      If p[i]>0 then
         n:=n+1 else
         Break;
   Writeln(n);
   Readln;
end.