оптимизация для меньшения времени выполнения

[Ganmaker]

доброго всем времени суток.
Программа бесцельно выполняет арифметические действия (+,-,/,*) в циклах, как их можно заменить для ускорения работы.
Кроме того как правильно организовать циклы - вложенные должны быть меньше или наоборот.
И ещё, что лучше использовать, массивы типа record, или многомерные массивы.
Заранее благодарен, код писать не надо, думаю справлюсь сам, достаточно только советов.

[Викдон]

В массивах типа record могут содержаться поля разных типов, а в многомерных массивах элементы одного типа.

[Ganmaker]

я имел ввиду, что быстрее выполняется, например 2-х мерный массив типа integer или одномерный типа record

[Arigato]

Смотря как к нему обращаться.
Вот, простой пример (Делфи):

type TMassiv = array[0..9999,0..9999] of Integer;
var Mas: TMassiv;

procedure TForm1.Button1Click(Sender: TObject);
var I, J, T: Integer;
begin
  Randomize;
  T := GetTickCount;
  for I := 0 to 9999 do
    for J := 0 to 9999 do
      Mas[I,J] := Random (1000);
  ShowMessage (IntToStr (GetTickCount - T));
end;

На моем компе обработчик выполнился за 1 сек.
Меняем индексы местами:

type TMassiv = array[0..9999,0..9999] of Integer;
var Mas: TMassiv;

procedure TForm1.Button1Click(Sender: TObject);
var I, J, T: Integer;
begin
  Randomize;
  T := GetTickCount;
  for J := 0 to 9999 do
    for I := 0 to 9999 do
      Mas[I,J] := Random (1000);
  ShowMessage (IntToStr (GetTickCount - T));
end;

А этот код (который, по сути, делает тоже самое) выполнился за 10 сек.