Polia - lazarus programovanie pomoooc

Mám napisat program, ktorý naplní polia vysky a sirky náhodnými hodnotami z intervalu a vedľa seba nakreslí 6 obdĺžnikov. Šírky a výšky si zoberie z polí vysky a sirky. Ja mam toto a nejde mi to, co mam zle?

procedure TForm1.Button1Click(Sender: TObject);
var
sirka,vyska:array [10..40] of integer;
x,y,i:integer;
begin
m.Brush.Color := clBlue;
x:=0;
y:=Random(m.Height);
for i:=1 to 6 do sirka[i]:=random(41)+10;
m.Rectangle(40*i,x,40*i+30,y+sirka[i]*10);
; end;

Toto je vytvorenie pola indexovaného od 10 do 40.

Dakujem to mam uz, prosim ta ako to urobim aby mi zobralo tie udaje vysky a sirky a nakreslilo obdlzniky vedla seba?

Veď to, že to máš zle.
Ty si vytvoríš polia s indexami od 10 do 40.
Tzn. že máš:
sirka[10], sirka[11], sirka[12]... sirka[40]
vyska[10], vyska[11], vyska[12]... vyska[40]

A potom tu

si veselo priradzuješ do sirka[1] až sirka[6]. Odkiaľ máš to sirka[1] až sirka[6]? No nemáš. Preto ti to nejde.

Definuj si pole ako array[1..6] of integer;
potom v cykle od 1 do 6 urob
begin
sirka[i] := random(41) +10;
vyska[i] := random(41) + 10;
end;

a vykresli ich tak, ako chceš. Ak vedľa seba, tak [x,y] ďalšieho štvorca bude [x+sirka, y] predchádzajúceho.