В одной из процедур идёт вызов процедуры указанной ниже,и,хотя i в неё не передаётся,writeln(i) выдаёт значение 45588 и массив получается такого де размера+1.Откуда оно там может браться?
Код:
procedure Add_to_Array(var Massiv:Mass;Zap:Sportsmen);
var
i:word;
begin
writeln(i);
readln;
i:=high(Massiv);
setlength(Massiv,i+1);
Massiv[i]:=Zap;
end;