[Bargest]

1) Разумеется отдельным. Сначала массив надо заполнить, а потом с ним работать.
2) Почему P=N - проанализируй.

Код:

p:=0;
...
for i:=1 to n do
begin
  p:=p+1;
end;

N раз P увеличиваем на 1, изначально p = 0.
Следовательно, цикл бесполезен.