Имеются два линейных массива вещественных чисел. Создать из них один линейный массив, в котором сначала идут отрицательные элементы, затем нулевые и положительные — Pascal(Паскаль)

CONST N=10;
    M=5;
var
    A:array[1..N] of real;
    B:array[1..M] of real;
    C:array[1..N+M] of real;
    i,k:integer;
begin
    writeln('Первый массив');
    for i:= 1 to N do
        begin
            A[i]:=random(10)-5;
            write(a[i]:6:2);
        end;
    writeln;
    writeln('Второй массив');
    for i:= 1 to M do
        begin
            B[i]:=random(10)-5;
            write(a[i]:6:2);
        end;
    writeln;
    k:=1;
    for i:= 1 to N do
        if A[i]<0 then
            begin
                C[k]:=A[i];
                inc(k);
            end;
 
    for i:= 1 to M do
        if B[i]<0 then
            begin
                C[k]:=B[i];
                inc(k);
            end;
    for i:= 1 to N do
    if A[i]>=0 then
            begin
                C[k]:=A[i];
                inc(k);
            end;
            
    for i:= 1 to M do
    if B[i]>=0 then
            begin
                C[k]:=B[i];
                inc(k);
            end;
            
        writeln('Полученный массив');
    For i:=1 to K-1 do write(C[i]:6:2);
end.