Добрый день. Я никак не могу понять одну штуку. Есть массив типа 1.1.1.2.2.3.3.... хочу на выходе поучить динамический массив 1.2.3.4..... делаю так не работает [Big] procedure TForm1.Button1Click(Sender: TObject); var ar1: array[0..20] of integer; ar2: array of integer; sort:boolean; i,y:integer; begin ar1[0]:=1; ar1[1]:=1; ar1[2]:=1; ar1[3]:=2; ar1[4]:=3; ar1[5]:=3; ar1[6]:=4; ar1[7]:=4; ar1[8]:=5; ar1[9]:=5; ar1[10]:=6; ar1[11]:=6; ar1[12]:=7; ar1[13]:=7; ar1[14]:=8 ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82891