1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
 TPack = packed record
       txt:string;
       zhl:integer;
 end;

Pack=array[0..100] of TPack;                       <- ARRAY


procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:=Low(Pack) to High(Pack) do
    Pack[i].zhl:= Random(High(Integer));           <-Hier ist der Fehler bei 'Pack[i]...
end;					

1:
2:

var
  Pack:array[0..100] of TPack;                    //   <- ARRAY