Вложенные циклы или пирамида из кирпичей. PascalABC

[AntoshkaK]

Вот задачка, нужна только подсказка. Заранее огромное спасибо!

Uses GraphABC;
Const
   kw=20; {ширина кирпича}
   kh=10; {высота кирпича}
Var
   x,y, i,j,kol:Integer;
Begin
  Repeat
   Writeln('Введите число кирпичей (от 1 до 30): ');
   Readln(kol);
   Writeln(kol);
 Until (kol<=30) and (kol>=1);
   If (kol>=1) and (kol<=30) Then
   begin
    ClearWindow;
    x:=0;
    y:=kol div kh;
   SetBrushColor(clRed);
      For i:=0 To kol Do
        begin
             For j:=0 To kol Do
              begin
               Rectangle(x,y, x-kw, y-kh);
               x:=x+kol
              end;
             y:=y+kh;
             end;
             end;
End.