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

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.