У меня не_работает прога Шифр Лесенка

procedure TForm1.btn1Click(Sender: TObject);
var i,j,it,jt:integer;                            //Сначала столбец потом строка =))
begin
 for i:=0 to 31 do begin
    for j:=0 to 15 do
      grid2.Cells[i,j]:='';
      end;
 
  i:=0;
  for jt:=0 to 31 do begin                       // выстраиваем всё по столбцам
      for it:=0 to StrToInt(edt1.Text) do
       begin
         if i<Length(mmo1.Text) then
         grid2.Cells[jt,it]:=mmo1.Text[i]
         else
         grid2.Cells[jt,it]:='';
         i:=i+1;
      end;
  end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,c,key:byte; str:string;
mas:array of array of char;
begin
c:=1;
str:=edit1.Text;
key:=strtoint(edit2.text);
 
setlength(mas,key,round(length(str)/2));
label1.Caption:='';
 
for i:=0 to high(mas[1])do
  for j:=0 to high(mas)do begin
   mas[j,i]:=str[c];
  inc(c);
  end;
 
 
//вывожу результат
for i:=0 to high(mas)do begin
  for j:=0 to high(mas[1])do
    label1.Caption:=label1.Caption+mas[i,j];
label1.Caption:=label1.Caption+#13#10;
 
end;
 
end;

setlength(mas,key,round(length(str)/2));

setlength(mas,key,ceil(length(str)/2));