Рекурсии в pascal

[Nogard]

Пожалуйста обьясните мне как решать задачу вывода такой картинки:
1111111111111111 (16 раз)
222222222222 (12 раз)
33333333 (8 раз)
4444 (4 раза)
4444 (4 раза)
33333333 (8 раз)
222222222222 (12 раз)
1111111111111111 (16 раз) Решить методом рекурсии и если возможно обьяснить мне ! это по книжкам не могу понять как рекурсия работает !!!



Вот написал программу но она немного другое выдаёт, помогите исправить:

program recyrsia;
uses crt;
var k:integer;
function kartinka(i:integer):integer;
 var j,n:integer;
 begin
   n:=16;
   if i=1 then begin
     for j:=1 to n do write(i);
     exit;
   end
   else kartinka:=kartinka(i-1);
   n:=n-4;
   for j:=1 to n do write(i);
   writeln;
 end;
begin
  kartinka(4);
end.

[Anatole]

Для того, чтобы правильно написать прокрамму такого типа, необходимо в первую очередь установить закономерности<> которіе присущи данной задаче. Тогда пишется просто в течении 10 минут. Например вот так:

Program Kartinka;
 
 Procedure DrawString(n:byte);
var i :byte;
Begin
 If n = 0 then exit;
 For i := 1 to 4*n do Write((5-n):1);
 WriteLn;
 DrawString(n-1);
 For i := 1 to 4*n do Write((5-n):1) ;
 WriteLn;
End;
BEGIN
DrawString(4);
END.