merge

     {Sortieren der Arrays über eine While Schleife}
  i := 1; {Index Feld1}
  j := 1; {Index Feld2}

  for k := 1 to GRENZE do
  begin
    if (i<=GRENZE1) and (j <=GRENZE2) then
    begin {Pruefe ob Feld1 oder Feld 2 Leer ist, wenn ja dann ELSE}
      if (feld1[i] <= feld2[j]) then
      begin {Wert von Feld1 <= Feld2, dann Speichere Wert in Feld[k]}
        feld[k] := feld1[i];
        i := i + 1;
      end
      else if (feld2[j] <= feld1[i]) then
      begin {Wert von Feld2 <= Feld1, dann Speichere Wert in Feld[k]}
        feld[k] := feld2[j];
        j := j + 1;
      end
    end
    else {Feld1 oder Feld2 ist Leer, prüfe welches}
      if (i > GRENZE1) then
      begin {Feld1 leer -> Leere Feld2}
        feld[k] := feld2[j];
        j := j + 1;
      end
      else
      begin {Feld2 ist Leer -> Leere Feld1}
        feld[k] := feld1[i];
        i := i + 1;
      end
  end;

      writeln ('Das Ergebnisfeld ist:');
      for k := 1 to GRENZE do
      write (Feld[k]:8);
      writeln
    end. { merge }