Хелп плизз проболел тему кто может помогите!!!!!

он просто "ей становится", то есть если 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.

тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может