возможно я не понимаю,но если я заместо этого
Код:
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;
i=45588
сделаю это
Код:
procedure Add_to_Array(var Massiv:Mass;Zap:Sportsmen);
var
i:word;
begin
i:=high(Massiv);
writeln(i);
readln;
setlength(Massiv,i+1);
Massiv[i]:=Zap;
end;
то i = 65535
и я наверное коряво написал что именно делаю.запускаю программу,выбираю пункт 4.запускаю процедуру Input_Array,она запускает Input_Record,и потом иду в процедуру Add_to_Array и в ней то вся эта непонятная штука происходит