Помогите кто-то по Паскалю

Указать тривиальный случай, параметризацию и декомпозицию в програме

uses crt;
const
size_a = 5;
a:array[1..size_a] of integer=(2, 5, 6, 9, 32);

size_b=7;
b:array[1..size_b] of integer=(3, 7, 8, 11, 13, 19, 21);

size_c=size_a + size_b;

var
c:array[1..size_c] of integer;
ia, ib, ic:integer;

begin
ia:=1; ib:=1; ic:=0;
while (ia<=size_a) and (ib<=size_b) do begin
if a[ia] < b[ib] then begin
inc(ic); c[ic] :=a[ia]; inc(ia);
end
else begin
inc(ic); c[ic] :=b[ib]; inc(ib);
end;
end;

while(ia<=size_a) do begin
inc(ic); c[ic] :=a[ia]; inc(ia);
end;
while(ib<=size_b)do begin
inc(ic); c[ic] :=b[ib]; inc(ib);
end;

for ic:=1 to size_c do
write(c[ic]:4);
writeln;
end.

Какова будит глубина рекурсии если n=6.