Вы заполучили котенка. Каждый вечер вы определяйте его вес с поддержкою

Var i:integer; a:array [1..31]of integer;
begin
for i:=1 to 31 do readln(a[i]); next i;
end.

В этом массиве будут храниться значения веса котёнка. 
var a:array [1..31]of integer; - это объявление массива, всё остальное - инициализация. Если вес предполагается как вещественное число, то необходимо объявить массив так:
a:array [1..31]of real;