Рекурсия и графика Опции

[Askid.BY]

Знаяит вопрос такой, а точнее задача:
Составить рекурсивное определение функции(процедуры) сформировывающую матрицу вида
*****
***
*
Как обычно она решается я знаю,но как рекурсивно?

Код

uses
crt;
var
i:byte;
n,x:integer;
begin
writeln('Vvesti znachok');
readln(n);
ClrScr;
i:=3;
if i=3 then writeln(n,n,n,n,n);
i:=i-1;
if i=2 then writeln(' ',n,n,n );
i:=i-1;
if i=1 then writeln(' ',n);
if i=0 then writeln ;
readkey;
end.

И ещё если нетрудно какие мысли по задаче:
Составить программу вывода на экран окружности.При нажатии клавиши КУРСОР вправо окружность вращается вокруг своего диаметра слева направо,при нажатии клавиши КУРСОР влево - справа налево.

[volvo]

var
  n: integer;

procedure print(count: integer; ch: char);
var i: integer;
begin
  if count >= 1 then begin

    for i := 1 to (n - count) div 2 do write(' ');
    for i := 1 to count do write(ch);
    writeln;

    print(count - 2, ch);

  end;
end;

begin
  n := 5;
  print(n, '*');
end.