Кто понимает в программировании напишите мне, пожалуйстаааааааа!!!! Нужно задачки подправить

Question

ЭТО ПЕРВАЯ!!! Вот код программы. Нужно чтобы данная рекурсия выводилась в виде песочных часиков. И самая узкая часть должна быть равна n. 
Вид такой: 
 
ABCDE...VWXYZ 
BCDE...VWXY 
CDE...VWX 
... 
CDE...VWX 
BCDE...VWXY 
ABCDE...VWXYZ 
 
Program primer2; 
var 
n: integer; 
procedure rec(n, k: integer); 
var 
i: integer; 
begin 
if k > n then 
begin 
for i := 26 - k to k-1 do 
write(chr(i+ ord('A'))); 
 
writeln; 
rec(n, k - 1); 
for i := 26 - k to k-1 do 
write(chr( i+ord('A'))); 
writeln; 
end 
else 
begin 
 
for i := 26 -k to k-1 do 
write(chr(i+ ord('A'))); 
writeln; 
end; 
end; 
 
BEGIN 
writeln('Введите n'); 
readln(n); 
rec(n, 26); 
readln; 
END.

а КАК ЕЩЕ СДЕЛАТЬ ЧТОБЫ Я ВВЕЛА ЧИСЛО И СЕРЕДИНА ЭТОЙ РЕКУРСИИ ( ТО ЕСТЬ КОЛИЧЕСТВО БУКВ) РАВНЯЛАСЬ ВВЕДЕННОМУ ЧИСЛУ.

Ирина Карпова · Accepted Answer

А зачем так длинно и сложно, с кучей непонятных циклов? Так оно попроще будет: 
 
procedure DoOut(s, sp:string); 
begin 
if s='' then 
exit; 
writeln(sp,s); 
DoOut(copy(s,2,length(s)-2),sp+' '); 
writeln(sp,s); 
end; 
 
var s:string; 
c:char; 
begin 
s:=''; 
for c:='A' to 'Z' do s:=s+c; 
DoOut(s, ''); 
end; 
 
(Добавил красоты в виде пробелов)