Вычисления произведения всех натуральных чисел из отрезка [N,M], где N<М (C++) в Memo с условием

Const
  m = 63;

var
arr: array[1..m] of integer;
i, j, k: integer;

begin
randomize;

write ('Исходный массив: ');
for i := 1 to m do begin
  arr[i] := random(62)+1;
write (arr[i]:4);
end;
writeln; writeln;

for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;

write ('Отсортированный массив: ');
for i := 1 to m do
write (arr[i]:4);

writeln;

readln
end.                                                                                                                                                                                                                                                   Ну как то так

1. Блок питания - Antec Basiq VP650P 650W
2. Видеокарта - MSI GeForce GTX560 Ti N560GTX-Ti Twin Frozr II
3. Джойстик - Руль + рукоятка - Genius MaxFighter F-17+Genius MaxFire Grandias (USB, 12 кнопок, кнопки Turbo и Macro, с обратной связью)+ Genius Speed Wheel 3 MT
4. Жесткий диск - HDD 750ГБ, 2.5", 5400об/мин, 8МБ, SATA II, Western Digital Scorpio Blue, WD7500BPVT
5. Звуковая карта - нет
6. Источник бесперебойного питания - ИБП Powercom WOW-700U
7. Клавиатура - Genius KB06XE(PS/2)
8. Монитор - ViewSonic VA1931wa-LED, 1366x768, 5ms
9. Мышь - Genius NetScroll 110 (оптическая, 800dpi, PS/2, Bundle, white)
10. Оперативная память - Kingston KHX1600C9D3K2/8GX 2x4GB 1600MHz
11. Привод для чтения и записи оптических дисков - нет
12. Процессор - Intel Core i5-2400 3,1GHz
13. Сетевая карта - D-Link DFE-520TX, PCIEthernet, 10/100Mbps
14. Системная плата - ASUS P8P67 EVO (REV 3.0)
15. Системный блок - Zalman Z9 Plus.