Предсортировка и слияние -Delphi

[LeDиNkо]

Пишу программу предсортировки и слияния в Delphi. Метод заключается в том, что основной массив разбивается на два дочерних, в отношении каждого из которых осуществляется сортировка. Затем отсортированные массивы сливаются, и полученный массив подвергается вторичной сортировке. В результате получаем отсортированный массив.
Моя программа почему-то выдает неверный результат...сама ошибок обнаружить не могу. Буду признательна за помощь.

procedure TForm1.Button1Click(Sender: TObject);
type massiv=array[1..30] of integer;

procedure delete_el(m:integer; var c:massiv);
begin
  c[m]:=c[m+1];
end;

var stroka,s:string;
    a,b: massiv;
    i,t,j,q,num1,num2,num3,e,y,min1,min2,min3,x,k:integer;
begin
stroka:=Chisla.Text;
trim(stroka); k:=1; t:=0; i:=1;
while i<>Length(stroka)+1 do
  begin
  if stroka[i]=' ' then
      begin
      s:=copy(stroka,t+1,i-t-1);
      a[k]:=StrToInt(s);
      inc(k);
      t:=i; i:=i+1;
      end
  else i:=i+1;
  end;

e:=trunc(k/2);
while e<>0  do
  begin
  for j:=1 to e do
      begin
      min1:=a[j];
      for q:=1 to e do
      if min1>a[q] then
         begin
         min1:=a[q];
         num1:=q;
         end;
       end;
  b[j]:=min1;  inc(x);
  delete_el(num1,a); e:=e-1;
  end;

while e<>0  do
  begin
  for j:=e+1 to k do
      begin
      min2:=a[j];
      for q:=e+1 to k do
      if min2>a[q] then
         begin
         min2:=a[q];
         num2:=q;
         end;
      end;
  b[j]:=min2; inc(x);
  delete_el(num2,a); e:=e-1;
  end;
y:=1;
while y<>k  do
  begin
  for j:=1 to k do
      begin
      min3:=b[j];
      for q:=1 to k do
      if min3>b[q] then
         begin
         min3:=b[q];
         num3:=q;
         end;
      end;
  Sliyaniye.Text:=Sliyaniye.Text+' '+InttoStr(min3);
  delete_el(num3,b); y:=y+1; inc(x);
  end;
Iter1.Text:=IntToStr(x);

end;


end.

[Stilet]

Метод заключается в том, что основной массив разбивается на два дочерних, в отношении каждого из которых осуществляется сортировка. Затем отсортированные массивы сливаются, и полученный массив подвергается вторичной сортировке. В результате получаем отсортированный массив.

Мдя...

Так сойдет?:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array[1..30] of integer;i:integer;

procedure Sort(from,too:integer);
var i,k,e:integer;
begin
 for i:=from to too do begin
  for k:=i to too do begin
   if a[i]>a[k] then begin e:=a[i];a[i]:=a[k];a[k]:=e; end;
  end;
 end;
end;

begin
 for i:=low(a) to high(a) do begin
  a[i]:=random(100);write(a[i]:5);
 end;
 Sort(1,high(a) div 2);
 Sort(high(a) div 2,high(a));
 Sort(1,high(a));
 writeln;
 for i:=low(a) to high(a) do begin
  write(a[i]:5);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Только я ни кита не понял зачем такой метод нужен? В чем экономия?

[LeDиNkо]

сама не понимаю, в чем его преимущество по сравнению с остальными методами сортировок....
Премного благодарна за помощь