ошибка "Constant expression violates subrange bounds"(Delphi)

[skorik-1992]

Всем доброго времени суток. Возникает такая ошибка - "Constant expression violates subrange bounds", на этой строке - "a[11]:=StrToFloat(edt1.Text);" и в последующих идентично. Не понимаю в чём проблема, вот код программы:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  a:array[1..3,1..3] of Real;
  b:array[1..3] of Real;
  x:array[1..3] of Real;
  k:array[1..3] of Real;
  i,g:Integer;
const
  esp=0.0001;
label 1;
begin
a[11]:=StrToFloat(edt1.Text);
a[12]:=StrToFloat(edt2.Text);
a[13]:=StrToFloat(edt3.Text);
a[21]:=StrToFloat(edt4.Text);
a[22]:=StrToFloat(edt5.Text);
a[23]:=StrToFloat(edt6.Text);
a[31]:=StrToFloat(edt7.Text);
a[32]:=StrToFloat(edt8.Text);
a[33]:=StrToFloat(edt9.Text);

b[1]:=StrToFloat(edt10.Text);
b[2]:=StrToFloat(edt11.Text);
b[3]:=StrToFloat(edt12.Text);

for i:=1 to 3 do x[i]:=0;

1:  k[1]:=(b[1]-a[12]*x[2]-a[13]*x[3])/a[11];
    k[2]:=(b[2]-a[21]*x[1]-a[23]*x[3])/a[22];
    k[3]:=(b[3]-a[31]*x[1]-a[32]*x[2])/a[33];
if (Abs(k[1]-x[1])>esp) or (Abs(k[2]-x[2])>esp) or (Abs(k[3]-x[3]>esp) then
begin
  for i:=1 to 3 do x[i]:=k[i];
  goto 1;
end;

for i:=1 to 3 do x[i]:=k[i];

edt13.Text:=FloatToStr(x[1]);
edt14.Text:=FloatToStr(x[2]);
edt15.Text:=FloatToStr(x[3]);
end;

end.

Пожалуйста, подскажите в чём проблема и как это исправить, заранее спасибо!

[evg_m]

a: array[ 1..3 , 1..3 ] of Real;

a[ 11 ]:=.....

[p51x]

а откуда у вас возьмется 11-й элемент в а? быстро смотреть в книге как обращаются к двумерным массивам

[skorik-1992]

Сообщение от p51x

а откуда у вас возьмется 11-й элемент в а? быстро смотреть в книге как обращаются к двумерным массивам

блин, точно, вот балда) забыл, что там запятую между элементами нужно ставить. Спасибо большое за подсказку.