использование подпрограмма

[Anka1101]

У меня есть решенная программа,но ее нужно как то упростить так как я не понимаю ее смысла.....
вот задание:
1)Сгенерировать 2 массива А и В случайных вещественных чисел в диапазоне [-20;12].генерацию осуществить с помощью процедуры.
2)упорядочить оба массива по возрастанию.упорядочение осуществить в процедуре.
3)объединить два упорядоченных массива А и В в один упорядоченный массив С
4)найти произведение элементов массива С.

вот такая программа:

Const
cArrSize = 10;
Type
tArr = Array [0..cArrSize - 1] Of Real;
tArrC = Array [0..cArrSize * 2 - 1] Of Real;
Var
A, B: tArr;
C: tArrC;
Prod: Real;

Procedure GenerateArr(Var aArr: tArr);
Var
I: Integer;
Begin
For I:= 0 To cArrSize - 1 Do aArr[I]:= Random * 33 - 20;
End;

Procedure SortArr(Var aArr: Array Of Real; aArrSize: Integer);
Var
I, J: Integer;
TempR: Real;
Begin
For I:= aArrSize - 1 DownTo 0 Do
For J:= 0 To I - 1 Do
If aArr[J] > aArr[J + 1] Then Begin
TempR:= aArr[J];
aArr[J]:= aArr[J + 1];
aArr[J + 1]:= TempR;
End;
End;

Procedure MergeArrs(Var aResArr: tArrC; Var aArr1: tArr; Var aArr2: tArr);
Var
I: Integer;
Begin
For I:= 0 To cArrSize - 1 Do aResArr[I]:= aArr1[I];
For I:= cArrSize To cArrSize * 2 - 1 Do aResArr[I]:= aArr2[I - cArrSize];
SortArr(aResArr, cArrSize * 2);
End;

Var
I: Integer;

Begin
Randomize;
GenerateArr(A);
GenerateArr(B);
SortArr(A, cArrSize);
SortArr(B, cArrSize);
MergeArrs(C, A, B);
Prod:= 1.0;
For I:= 0 To cArrSize * 2 - 1 Do Prod:= Prod * C[I];
WriteLn('Prod = ', Prod:7:3);
ReadLn;
End.



Я не понимаю почти всю программу(то что не понимаю красным цветом),кто сможет помогите пожалуйста!!!!Буду очень вам признательна!

[Stilet]

Const
cArrSize = 10; Описываем константу со значением 10
Type В секии типов
tArr = Array [0..cArrSize - 1] Of Real; Описываем массив от нуля до 10-1 вещественных
tArrC = Array [0..cArrSize * 2 - 1] Of Real;И такой-же но в два раза больше
Var
A, B: tArr; Описываем переменные этих типов (массивов)
C: tArrC;
Prod: Real;

Пишем процедуру, которая наполняет массив, передаваемывй ей
случайными чмслами
Procedure GenerateArr(Var aArr: tArr);
Var
I: Integer;
Begin
For I:= 0 To cArrSize - 1 Do aArr[I]:= Random * 33 - 20;
End;

И процедуру, что сортирует передаваемый ей массив судя по всему
Пузырьковой сортировкой
Procedure SortArr(Var aArr: Array Of Real; aArrSize: Integer);
Var
I, J: Integer;
TempR: Real;
Begin
For I:= aArrSize - 1 DownTo 0 Do
For J:= 0 To I - 1 Do
If aArr[J] > aArr[J + 1] Then Begin
TempR:= aArr[J];
aArr[J]:= aArr[J + 1];
aArr[J + 1]:= TempR;
End;
End;

Потом процедуру, которая... Я не очень понял что она делает
Procedure MergeArrs(Var aResArr: tArrC; Var aArr1: tArr; Var aArr2: tArr);
Var
I: Integer;
Begin
For I:= 0 To cArrSize - 1 Do aResArr[I]:= aArr1[I];
For I:= cArrSize To cArrSize * 2 - 1 Do aResArr[I]:= aArr2[I - cArrSize];
SortArr(aResArr, cArrSize * 2);
End;

Var
I: Integer;

Begin
Включаем случайный генератор
Randomize;

Наполняем массивы по очереди. Сначала маленький
GenerateArr(A);
Потом большой
GenerateArr(B);

Сортируем их
SortArr(A, cArrSize);
SortArr(B, cArrSize);

Еще что-то....
MergeArrs(C, A, B);

Далее получаем какой-то коэффициент массива.
Что-то из матричных преобразований видимо
Prod:= 1.0;
For I:= 0 To cArrSize * 2 - 1 Do Prod:= Prod * C[I];
WriteLn('Prod = ', Prod:7:3);
ReadLn;
End.

Помогло?

[Anka1101]

относительно