[icWasya]

Сообщение от badtrips

возможно я не понимаю,но непонятная штука происходит

Код:

procedure Add_to_Array(var Massiv:Mass;Zap:Sportsmen);
var
  i:word;
begin
  i:=high(Massiv); (* если массив пустой, то high = -1, а при переводе в word получается 65535*)
  writeln(i); 
readln;
setlength(Massiv,i+1); // а вот тут получается чёрти что
Massiv[i]:=Zap;
end;

Используй не i:word, а i:integer.