Дан массив размера N, все элементы которого, кроме последнего, упорядочены по возрастанию. Сделать массив упорядоченным.

[Serge_Bliznykov]

строчка выделенная красным явно ЛИШНЯЯ, уберите её совсем!

RichEdit2.Lines.Clear;
a[n] := t-1;
for i := 1 to n do
....

[Serge_Bliznykov]

nadayH, пробуйте такой код:

type
  TArray = array[1..100] of Integer;

function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i := 1 to N - 1 do
    result := result + IntToStr(a[i]) + ',';
  result := result + IntToStr(a[N]);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  n, i, p, l, r, s, t: Integer;
  a: Tarray;
begin
  N := StrToInt(Edit1.Text);
  Randomize;
  a[1] := Random(10);
  for i := 2 to n - 1 do
    a[i] := a[i - 1] + 1 + Random(10);
  t := Random(a[n - 1]) + 1;
  a[n] := t;
  RichEdit1.Lines.Clear;
  RichEdit1.Lines.Append(ArrayToString(a, n));

  l := 1; r := n - 1;
  while l < r do begin
    s := (l + r) div 2;
    if a[s] < a[n] then
      l := s + 1
    else
      r := s
  end;

  p := a[n];
  Move(a[l], a[l + 1], (n - l) * SizeOf(Integer));
  a[l] := p;


  RichEdit2.Lines.Clear;
  RichEdit2.Lines.Append(ArrayToString(a, i));
end;

p.s. когда Вы вставляете предложенные Вам куски кода в программу, Вы пытаетесь разобраться, что это за код, что он делает, как он это делает?
Не обижайтесь, но складывается впечатление, что Вы вообще не разбираетесь в том коде, что Вам пишут тут на форуме!
Вам точно нужно заниматься программированием?!