FUNZT LAST

program merge (input, output);
{ liest ohne Eingabeueberpruefung zwei sortierte Felder mit
  integer-Zahlen ein; beide Felder werden in Feld sortiert
  zusammengefuegt; das Ergebnis wird ausgegeben; ist die Ein-
  gabe unsortiert, so ist das Ergebnisfeld nicht sortiert }
const
GRENZE1 = 5;
GRENZE2 = 8;
GRENZE = 13; { GRENZE1 + GRENZE2 }
GRENZE1PLUS1 = 6;
GRENZE2PLUS1 = 9;
GRENZEPLUS1 = 14;

type
tIndex1 = 1..GRENZE1;
tIndex2 = 1..GRENZE2;
tIndex = 1..GRENZE;
tIndex1Plus1 = 1..GRENZE1PLUS1;
tIndex2Plus1 = 1..GRENZE2PLUS1;
tIndexPlus1 = 1..GRENZEPLUS1;
tFeld1 = array [tIndex1] of integer;
tFeld2 = array [tIndex2] of integer;
tFeld = array [tIndex] of integer;

var
Feld1 : tFeld1;
Feld2 : tFeld2;
Feld : tFeld;
i : tIndex1Plus1;
j : tIndex2Plus1;
k : tIndexPlus1;

{EVTL WEITERE VARIABLEN}
begin
    { sortierte Felder einlesen }
    writeln ('Bitte', GRENZE1:2, ' Werte des ersten Feldes ',
        'sortiert eingeben!');
    for i := 1 to GRENZE1 do
        readln (Feld1[i]);
    writeln ('Bitte', GRENZE2:2, ' Werte des zweiten Feldes ',
        'sortiert eingeben!');
    for j := 1 to GRENZE2 do
        readln (Feld2[j]);


 {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 }