Есть переменная P, которая постоянно изменяется. Ее значение нужно 5 раз

Есть переменная P, которая непрерывно меняется. Ее значение нужно 5 раз записать в массив. Но, заместо того, чтоб массив брал в себя эти 5 значений, он просто "ей становится", то есть если p=4, а позже 5, то массив будет сначала равен 4, а позже поменяет 4 на 5. А необходимо, чтоб в нем было и 4, и 5. Как это сделать?

Вот малый пример программки: переменная P и цикл c массивом.

uses crt;

var
p,i:integer;
m:array [1..10] of integer;

begin
p:=0;
for i:=1 to 5 do
begin
p:=p+1;
m[i]:=p;
end;
end.