[badtrips]

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

Код:

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.

программа почему то вылетает при i:integer.

уже не вылетает но i=4239892
где ж я накосячил то...

icWasya-спасибо!не увидел вставку в коде.