LÖSUNG SELBSTGEMACHT

    i := 1;
    j := 1;

    for k := 1 to GRENZE do
    {Pruefe feld1 < feld2 und ob Grenze1 Überschritten ist wenn ja else}
    begin
        if (i<=GRENZE1) and (j <=GRENZE2) then
        begin
            if (feld1[i] <= feld2[j]) then
            begin
            feld[k] := feld1[i];
            i := i + 1;
            end
        else
			begin
            feld[k] := feld2[j];
            j := j + 1;
			end
		end
	else
		begin
			if (i > GRENZE1) then
			begin
            feld[k] := feld2[j];
            j := j + 1;
			end
        else
			begin
            feld[k] := feld1[i];
            i := i + 1;
			end
		end
	end;