Переставить элементы следующим образом

resultArray: array of integer;
  n:integer;
 
procedure TForm3.BitBtn1Click(Sender: TObject);
  const
  rangemax=60;
  rangemin=-10;
  var
  i:integer;
begin
    randomize;
    n:=strtoint(Edit1.Text);
    StringGrid1.ColCount:=n;
    Setlength(resultarray,n);
    for i:=0 to n-1 do
  begin
    resultarray[i]:=rangemin+random(rangemax-rangemin);
    StringGrid1.Cells[i,0]:=(inttostr(resultarray[i]));
  end;
end;
 
procedure TForm3.BitBtn2Click(Sender: TObject);
  var i,j,chislo:integer;
begin
    i:=0;
    while i<n do
begin
    chislo:=resultArray[i] mod 10;
   if (chislo<>0) and (chislo mod 2=0)and(resultArray[i] mod chislo=0) then
begin
   if i=n-1 then n:=n-1 
   else
begin
     for j:=i to n-2 do 
     resultArray[j]:=resultArray[j+1];
     n:=n-1;
end;
end
   else
      inc(i);
end;
      Stringgrid2.ColCount:=n;
      for i:=0 to n-1 do
      Stringgrid2.Cells[i,0]:=(inttostr(resultarray[i]));
end;
 
Function FindK(element, K:integer):boolean;
begin
  if (abs(element) mod 10) <> K then
      Result := false
  else Result := true;
end;
 
 
procedure TForm3.BitBtn4Click(Sender: TObject);
var
  k,s,i,j:integer;
  tmpArray : array of integer;
begin
    k:=strtoint(Edit2.Text);
    i:=0;
    SetLength(tmpArray, N*3);
    j := -1;
    for i :=0 to N-1 do
      begin
        inc(j);
        if FindK(resultArray[i],K) then
          begin
            tmpArray[j] := K;
            inc(j);
            tmpArray[j] := resultArray[i];
            inc(j);
            tmpArray[j] := K;
            inc(n,2);
            end
        else
 
           tmpArray[j] := resultArray[i];
      end;
 
       Stringgrid3.ColCount:=n;
       for i:=0 to j do
       StringGrid3.Cells[i,0]:=(IntToStr(tmpArray[i]));
 
end;
 
 
procedure TForm3.BitBtn5Click(Sender: TObject);
var
i,j,x:integer;
begin
         Setlength(resultarray,n);
      while i<n do
       begin

procedure perestanovka(var Arr: TArr);
var
  i: integer;
  temp: variant;
begin
  for i := Low(Arr) to High(Arr) do
    if (i < High(Arr)-i) then
      begin
        temp:=Arr[i];
        Arr[i]:=Arr[High(Arr)-i];
        Arr[High(Arr)-i]:=temp;
      end
    else Exit;
end;