Вообще-то описание массива содержится в строке
var mas:array[1..n] of integer;
А вся программа ввода иммет вид:
Program Cat;
const n=31;
var mas:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
write('Введите вес котенка ',i,' -го мая');
readln(mas[i]);
end;
end.