Дан массив чисел От А До Б вывести в порядке уменьшения используя процедуру и рекурсию.(Паскаль)

var a: integer;

procedure row(n:integer);

begin

    if n>=1 then begin

       write (n, ' ');

       row(n-1)

    end;

end;

begin

readln(a);

   row(a);

end.