Объявление переменных типа array

Vadim Mescheryakov

Пишу код:

var
a10,a11 : array [0..12] of integer;

begin
a10[1] := 10;
end.

При компиляции выдается ошибка о том что ожидается переменная типа array
на строке a10[1] := 10;


Если
изменяю объявление на
var
a10 : array [0..12] of integer;
a11 : array [0..12] of integer;


То все работает нормально.

Как исправить?

AlexTZ

fs_iilparser.pas:

function TfsILParser.CreateVar
var
IsPascal: Boolean; // add
begin
...
IsPascal := False; // add

{ find the type }
for i := 0 to xi.Count - 1 do
if CompareText(xi.name, 'type') = 0 then
begin
IsPascal := i <> 0; // add
TypeName := xi.Prop;
ErrorPos(xi);
break;
end;

...
{ fing the <ident> tag corresponding to our variable }
for i := 0 to xi.Count - 1 do
if CompareText(xi.Prop, Name) = 0 then
begin
{ process <array> and <init> tags if any }
j := i + 1;

// change
while (j < xi.Count) and (IsPascal or (CompareText(xi[j].Name, 'ident') <> 0)) do
begin
...