Написать рекурсивную функцию, выводящую на печать m строк, состоящих из n символов каждая. на языке паскаль

Const
  n = 15;

var
  a: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(61) - 30;
    Write(a[i]:4);
    if a[i]>0 then a[i]:=2*a[i]
    else
      if a[i]<0 then a[i]:=7
  end;
  Writeln;
  Writeln('После преобразования');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
 -20  15  16  20   0  16 -15  -1  -2  21  -8 -10   4 -24   1
После преобразования
   7  30  32  40   0  32   7   7   7  42   7   7   8   7   2

Алг
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
Объяснение:
Смотри картинку
Вся программа:
использовать Чертежник
алг
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
алг цифра_ 0
нач
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
сместиться на вектор (2,0)
кон
алг цифра_ 6
нач
опустить перо
сместиться на вектор (-1,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (3,1)
кон.
Извините ,если не правильно