Имеется такая процедура заполнения массивов:
Procedure FillArrays (var ArrI, ArrFB: TArr; const Row: Integer; const ArrType: TSet);
Var
i: Integer;
Begin
if ArrType = Sorted then
for i := 1 to Row do
ArrI[i] := i
else if ArrType = Reversed then
for i := 1 to Row do
ArrI[i] := Row - i + 1
else
for i := 1 to Row do
ArrI[i] := Random(Row);
ArrFB := ArrI;
End;
Объявления следующие:
Type
TArr = array [1..3000] of Integer;
TARows = array [1..6] of Integer;
TSet = (Sorted, Reversed, Random);
TResArr = array [1..6, 1..12] of Integer;
Const
ARows: TARows = (100, 250, 500, 1000, 2000, 3000);
Output: array [1..3] of String = (' Sorted ', ' Reversed ', ' Random ');
Var
InsertSortArr, FBubbleSortArr: TArr;
ResArr: TResArr;
i, j, IndRes: Integer;
SortKind: TSet;
Не понимаю, почему возникает ошибка: E2066 Missing operator or semicolon, помогите, пожалуйста, понять, в чём дело?