в чем ошибка?

[yana1213]

var i, k, temp:integer;
m, n, x:integer; // переменная для коллчиства элементов массива
a1:array of integer; //описываем массив результата работы программы
s: string; //переменная для строки Мемо
begin
if CheckBox3.Checked then
begin
randomize;
if a[i] div 2 then; // серединка
temp:=a1[m]; // запомнили последний
a1[m]:=a[i]; // в последний занесли средний
a1[m]=temp; // в средний занесли последний
s:=s+IntToStr(a1[i])+' ';
memo2.Clear;
memo2.Lines.Add(s);
программа не выводит ничего

[ZX Spectrum-128]

А массив заполнен? И не забудьте, вам надо менять три элемента из середины на три последних.
Уффф, это из серии: "проще сделать, чем объяснить", подождите немного.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array of integer;
  s:string;
  temp,m,n,i:integer;
begin
  Memo1.Lines.Clear;
  SetLength(a,11);
  for i:=low(a) to high(a) do
    begin
        a[i]:=i;
    end;
  s:='';
  for i:=low(a) to high(a) do
    begin
       s:=s+IntToStr(a[i])+' ';
    end;
    Memo1.Lines.Add(s);

  m:=High(a) div 2; // серединка
  n:=High(a);


  temp:=a[n];              // запомнили последний
  a[n]:=a[m+1];              // в последний занесли средний+1
  a[m+1]:=temp;             // в средний+1 занесли последний

  temp:=a[n-1];              // запомнили последний-1
  a[n-1]:=a[m];              // в последний занесли средний
  a[m]:=temp;             // в средний занесли последний

  temp:=a[n-2];              // запомнили последний-1
  a[n-2]:=a[m-1];              // в последний занесли средний
  a[m-1]:=temp;             // в средний занесли последний
  s:='';
  for i:=low(a) to high(a) do
    begin
       s:=s+IntToStr(a[i])+' ';
    end;
    Memo1.Lines.Add(s);
end;
end.