Объединение отрезков

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
var A:array [0..7,0..1] of single =((0,1),(1,2),(2,3),(3,4),(6,7),(7,8),(10,11),(11,12));
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
for i:=0 to 6 do
   begin
   if Abs(A[i,1]-A[i+1,0])<0.001 then
      begin
      A[i+1,0]:=A[i,0];
      A[i,0]:=-1;A[i,1]:=-1;
      end;
   end;
k:=0;
for i:=0 to 7 do
   begin
   if A[i,0]>=0 then begin A[k,0]:=A[i,0];A[k,1]:=A[i,1];inc(k);end;
   end;
//---На выходе в массиве A - k отрезков
for i:=0 to k-1 do Memo1.Lines.Add(FloatToStr(A[i,0])+'-'+FloatToStr(A[i,1]));
end;
 
end.