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

[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.

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