рекурсивная программа вывода алфавита

[kalosha-stepa]

Написать рекурсивную программу вывода алфавита следующим образом:
ABCDE...VWXYZ
BCDE...VWXY
CDE...VWX
...
CDE...VWX
BCDE...VWXY
ABCDE...VWXYZ
В самом среднем ряду должно выводиться N букв (0<N<=26, определяется случайным образом).

У меня получилось лишь выведение 1 строчки:

program z3;
var n:integer;p:byte; i: char;

procedure rec(n: integer;p:byte);
var i: char;
begin
for i:='A' to 'Z' do writeln(' ');
for i:='A' to 'Z' do write(i);
writeln;
if (N<26) then begin rec(n+1,p-1);
for i:='A' to 'Z' do writeln(' ');
for i:='A' to 'Z' do write(i);
end;
end;


BEGIN
REC(n,p);
END.

[BDA]

var
    n: integer;
 
procedure rec(n, k: integer);
var 
    i: integer;
begin
    if k > n then
    begin
        for i := 26 - k to 25 do
            write(chr(i + ord('A')));
        writeln;
        rec(n , k - 1);
        for i := 26 - k to 25 do
            write(chr(i + ord('A')));
        writeln; 
    end
    else
    begin
        for i := 26 - k to 25 do
            write(chr(i + ord('A')));
        writeln; 
    end;
end;
 
BEGIN
    readln(n);
    rec(n, 26);
    readln;
END.