Помогите с массивами

[zhurus1]

Есть задание: вручную ввести двумерный массив (в memo). Мне нужно вывести его в поле Label. Вводим в поля ввода размерность массива. При запуске может вывести массив, а может сказать Access violation at adress... или '' is not a valid floating point value.
Вот модуль:

label1.Caption:='';
i:=-1;
setlength(mx,strtoint(labelededit1.Text));
 repeat
   inc(i);
   setlength(mx[i],strtoint(labelededit2.Text));
   s:=memo1.Lines[i];
   k:=0;
   j:=0; //отсчет от нуля
   repeat
    inc(k);
    r:='';
    while (s[k]<>#32) do
     begin
      r:=r+s[k];
      k:=k+1;
     end;
    Mx[i,j]:=strtofloat(r);
    j:=j+1;
    until (j>high(mx[i]));
until (i>(high(mx)-1));
for i:=0 to high(mx) do
 begin
 for j:=0 to high(mx[i]) do
  label1.Caption:=label1.Caption+floattostr(Mx[i,j])+#9;
 label1.caption:=label1.caption+#13;
 end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Помогите найти проблему. Заранее спасибо!

[Stilet]

Полагаю стоит так:

var w,h:integer;
...
label1.Caption:='';
if Trystrtoint(labelededit1.Text,h) and Trystrtoint(labelededit2.Text,w) then
 setlength(mx,h,w);
end else begin
 ShowMessage('WTF'); exit;
end;

i:=Low(mx);
 repeat
   inc(i);
   s:=memo1.Lines[i];
   k:=0;
   j:=low(mx[i]); //отсчет от нуля
   repeat
    inc(k);
    r:='';
    while (s[k]<>#32) do
     begin
      r:=r+s[k];
      k:=k+1;
     end;
    if not Trystrtofloat(r,mx[i,j]) then begin ShowMessage('WTF-2'); exit;  end;
    j:=j+1;
    until (j>=high(mx[i]));
until (i>=high(mx));

for i:=Low(mx) to high(mx) do
 begin
 for j:=Low(mx[i]) to high(mx[i]) do
  label1.Caption:=label1.Caption+floattostr(Mx[i,j])+#9;
 label1.caption:=label1.caption+#13;
 end;

Хотя мне не понятно зачем из Мемо данные в массив извлекать...