Два массива объединить в один и записать второй после максимального элемента первого.

uses crt;
var
A:array[1..3] of integer;
B:array[1..4] of integer;
i,max,nmax:integer;
begin
clrscr;
writeln('Массив  A');
max:=1;
nmax:=1;
 for i:= 1 to 3 do begin
  A[i]:=1*i;
  write(A[i]:4);
  if A[i] > max then begin max:=A[i]; nmax:=i; end;
 end;
writeln('');
writeln('Массив  B');
 for i:=1 to 4 do begin
  B[i]:=2*i;
  write(B[i]:4);
 end;writeln('');
writeln('Максимальный элемент первого массива: ',max, ' Номер: ', nmax);
 
readkey;
end.

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,m,i,j,imx:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива A n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=random(10)+1;
  write(a[i]:3);
 end;
writeln;
writeln;
repeat
write('Размер массива B < ',nmax-n,' m=');
readln(m);
until m in [1..nmax-n];
writeln('Исходный массив B:');
for i:=1 to m do
 begin
  b[i]:=random(31)+10;
  write(b[i]:3);
 end;
writeln;
writeln;
imx:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i;
writeln('Максимальный элемент первого массива: ',a[imx], ' Номер: ', imx);
for i:=1 to m do
 begin
  n:=n+1;
  for j:=n downto imx+1+i do
  a[j]:=a[j-1];
  a[imx+i]:=b[i];
 end;
writeln('Объединение массивов:');
for i:=1 to n do
write(a[i]:3);
readkey;
end.