Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону

program zd115;
uses
crt;
var
b:array [1..100] of integer;
a:array [1..100] of integer;
c:array [1..100] of integer;
k,n,i,f,j,i1,i2:integer;
begin
clrscr;
write('vvdite N');
readln(N);
for i:= 1 to n do
begin
write('vvedite ',i,' ilement');
readln(a[i]);
end;
write('vvdite K');
readln(k);
for i:= 1 to k do
begin
write('vvedite ',i,' ilement');
readln(b[i]);
end;
clrscr;
write('Massiv s dlinoi N ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Massiv s dlinoi K ');
for i:=1 to k do
write(a[i]:4);
i1 := 1;
i2 := 1;
for i := n+k downto 1 do
if i1>n then
begin
C[i] := a[i2];
inc(i2);
end
else
if i2>k then
begin
C[i] := b[i1];
inc(i1);
end
else
if a[i1]<=b[i2] then
begin
C[i] := b[i1];
inc(i1);
end
else
begin
C[i] := a[i2];
inc(i2);
end;
writeln;
write('Massiv N+k');
for i:=1 to n+k do
write(c[i]:4);
readln;
end.

uses
 crt;
 var
     b:array [1..100] of integer;
     a:array [1..100] of integer;
     c:array [1..100] of integer;
     k,n,i,f,j,i1,i2:integer;
 begin
    clrscr;
    write('vvdite N');
    readln(N);
    for i:= 1 to n do
    begin
      write('vvedite ',i,' ilement');readln(a[i]);
    end;
    write('vvdite K'); readln(k);
    for i:= 1 to k do
    begin
       write('vvedite ',i,' ilement'); readln(b[i]);
    end;
    clrscr;
    write('Massiv s dlinoi N ');
    for i:=1 to n do
       write(a[i]:4);
    writeln;
    write('Massiv s dlinoi K ');
    for i:=1 to k do
       write(a[i]:4);
 
    i1:=1;i2:=1;
    for i:=n+k downto 1 do
           if a[i1]>b[i2] then begin c[i]:=a[i1];inc(i1);end
           else begin c[i]:=b[i2];inc(i2);end;
 
    write('Massiv N+k');
    for i:=1 to n+k do
        write(c[i]:4);
    readln;
END..