Да просто при создании массива тут же рядом в константах прописывай длину массива. И потом юзай эту константу.
Program Nubie;
Const
m_size = 40;
s_size = 50;
Var
m: array [0..m_size] of integer;
s: array [0..s_size] of string;
.....
for i:=0 to m_size do m[i]:=0;
.....