program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 Mxarrays in 'Mxarrays.pas';

function CompareProc(var item1, item2: Integer): Integer;
begin
 if item1 > item2 then
   Result := 1
 else
   if item1 >= item2 then
     Result := 0
   else
     Result := -1;    
end;

var
 A: TIntArray;
 I: Integer;
begin
 try
   Randomize;
   SetMemoryCapacity(20 * SizeOf(Integer));
   A := TIntArray.Create(0, SizeOf(Integer));
   try
     A.CompareProc := @CompareProc;
     A.SortOrder := tsAscending;
     // Заполнение массива данными
     for I := 0 to 9 do
       A.Add(Random(MaxInt));

     // Вывод содержимого массива на экран
     Writeln('Start Array:');
     for I := 0 to A.Count - 1 do
       Writeln(I, ': ', A[I]);

     // Удаление из массива нечетных элементов
     for I := 9 downto 0 do
       if A[I] mod 2 = 1 then
         A.Delete(I);

     Writeln;
     Writeln('Array after delete:');
     // Вывод содержимого массива на экран
     for I := 0 to A.Count - 1 do
       Writeln(I, ': ', A[I]);

     // Добавление в конец массива сумм пар элементов
     A.SortOrder := tsNone;
     for I := 0 to A.Count - 2 do
       A.Add(A[I] + A[I + 1]);

     Writeln;
     Writeln('Array with summ:');
     // Вывод содержимого массива на экран
     for I := 0 to A.Count - 1 do
       Writeln(I, ': ', A[I]);
       
     Readln;
   finally
     A.Free;
   end;
 except
   on E:Exception do
     Writeln(E.Classname, ': ', E.Message);
 end;
end.

TIntArray(FArray)[Index] := Value;

TStringArray(FArray).Insert(Index, Value);