Шифрование перестановкой букв - Delphi - Ответ 3788639

procedure TForm1.Button1Click(Sender: TObject);
Var
  m,n,i,j,k,r,Razm2,Razm1 : Integer;///добавила переменные 
  s : String;
begin
If Radiobutton1.Checked = True then 
begin
  If Edit1.Text='' Then Exit; 
  ///тут код нетронут.  
  
end
 
else
If Radiobutton2.Checked = True then
begin
Razm2:=(Length(s)+Razm1-1) Div Razm1;
SetLength(Arr,Razm1,Razm2);
 
 
 If Edit1.Text='' Then Exit; 
  s:=Edit1.Text; 
  n:=StrToIntDef(Edit2.Text,5); 
  m:=(Length(s)+(n-1)) Div n; 
  Edit4.Text:=IntToStr(m);
  SetLength(Arr,m,n); 
 
  For i:=0 To m-1 Do
  For j:=0 To n-1 Do
  Arr[i,j]:=Char(0);
 
 
  r:=0;
k:=0;
repeat
  inc(r);
  for i:=r to Razm2-r+1 do
  If k<Length(s) Then
  begin inc(k);Arr[r-1,i-1]:=s[k] end; 
  for i:=r+1 to Razm1-r+1 do
  If k<Length(s) Then
  begin inc(k);Arr[i-1,Razm2-r]:=s[k] end; //программа останавливается и выделяет синим цветом эту строку.
  for i:=Razm2-r downto r do
  If k<Length(s) Then
  begin inc(k);Arr[Razm1-r,i-1]:=s[k] end;
  for i:=Razm1-r downto r+1 do
  If k<Length(s) Then
  begin inc(k);Arr[i-1,r-1]:=s[k] end;
until (k=Razm1*Razm2) Or (k>=Length(s));
 end;
end;