Program Fusione_array(input,output); (*Programma che acquisisce 2 vettori di diversa lunghezza
e li fonde in un altro*)
const
x=3;
y=4;
type
T1_vettore = array [1..x] of integer;
T2_vettore = array [1..y] of integer;
T12_vettore = array [1..x+y] of integer;

var
a:T1_vettore;
b:T2_vettore;
c:T12_vettore;
i,primo,k,j,mezzo,h,ultimo,z,i1,i2,p,q:integer;

procedure inserimento(var m,n:integer; var vettore1:T1_vettore; var vettore2:T2_vettore);
var i:integer;
begin
   for i:=1 to m do
      begin
      writeln('Inserire l''',i,'-mo elemento del primo vettore');

      readln(vettore1[i]);
      end;
   for i:=1 to n do
      begin
      writeln('Inserire l''',i,'-mo elemento del secondo vettore');

      readln(vettore2[i]);
   end
end;

//fin qui ok secondo me...

{procedure fusione(m,n:integer; vettore1:T1_vettore; vettore2:T2_vettore; vettore3:T12_vettore);
begin
primo:=1;
i:= primo;
k := primo;
j:= primo;
z:=8;
while

     (i <= m) and (j <= n) do
       begin
         if vettore1[i] < vettore2[j]
         then
            begin
               vettore3[k] := vettore1[i];
               i := i + 1;
               i1:=i;
            end
         else
            begin
                 vettore3[k] := vettore2[j];
                 j := j + 1;
                 i2:=j;

            end;
                 k := k + 1;
      end;
      if i <= m
       then
        begin
        q := z- k;
        for h := q downto 0 do
        vettore3[k+h] := vettore1[i+h]
        end
         else

          if j<=n then
           begin
           p := z- k;
           for h := p downto 0 do
           vettore3[k+h] := vettore2[j+h]
           end;
           for k:=1 to (n+m) do
           begin
             write(' ',vettore3[k]);
           end;
end; }


Begin
inserimento(x,y,a,b);
//fusione(x,y,a,b,c);
readln;
End.