Нужно составить прогораму. даны два массива сформированных случайным образом, составить программу которая суммирует эти два массива и объединяет в один

//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код

Program Test;

const Size = 5; x = 1; y = 10;

Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;

Begin

Randomize;

j := 0;

for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;

for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]

else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;

Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);

if (Entered = 1) then
begin
Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;

Writeln();
Entered := 0;

Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);

if (Entered = 2) then
begin
Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;

Writeln();
Writeln('Суммарный массив:');
Writeln();

for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);

End.

Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.

Const n=10;
var 
  k,l,m,i,j: integer;
  var a: array[1..n] of integer;
begin
  k:=0; m:=0; j:=0; l:=0;
  for i:=1 to n do begin
    a[i]:=random(10);
    write (a[i]:3);
    if (i>1) and (a[i]>=a[i-1]) 
      then begin k:=k+1; j:=i; end
      else 
        if (k>0) and (k>l) 
          then begin l:=k; m:=j; k:=0 end
          else k:=0;
  end;
  if (k>0) and (k>l) 
    then begin l:=k; m:=n end; 
  writeln;
  writeln;
  for i:=m-l to m do 
    write (a[i]:3);
  l:=l+1;
  writeln;
  writeln ('Длина = ',l)
end.
результат:
  9  2  5  0  8  5  7  7  3  7

  5  7  7
Длина = 3

* рандомный ввод массива можно заменить обычным с клавиатуры