Iki karisik diziyi ayni dizide siraya dizer

Kod:
program merge_sort; uses wincrt; var a,b,c:array [1..100] of integer; n,m,i,j,k,t:integer; begin write('a ve b dizilerinin sirasiyla eleman sayisi >>> '); read(n,m);writeln; for i:=1 to n do read(a[i]); writeln; for j:=1 to m do read(b[j]); i:=1;j:=1;k:=1; while ((in) then begin for t:=i to m do begin c[k]:= b[t];k:=k+1 end end else begin for t:=j to n do begin c[k]:= a[t]; k:=k+1 end end; for k:=1 to n+m do write(c[k]:4) end.