Вывод набора символов на экран с использованием for в программе паскаль

[Svoloch]

Нужно написать программу при помощи цикла For (не используя массивы) для распечатки на экране монитора следующего набора символов:

[BDA]

Ваши наработки?
(Что получается вывести; программа, содержащая ошибки)

[Svoloch]

var
i,j:=integer;
C:=char;
begin
C:='A';
for i=1 to 5 do
begin
for j=1 to 9 do
begin
...
дальше не знаю, что писать. было бы квадратом легко бы все пошло, а здесь каждая строка начинается с пробелов и заканчивается, кроме первой.

[BDA]

uses
  crt;

var
  i: byte;
  j: char;

begin
  for i := 0 to 4 do
  begin
    gotoxy(2 * i + 1, i + 1);
    for j := chr(ord('A') + i) to chr(ord('I') - i) do
      write(j, ' ');
    writeln;
  end;
  readln;
end.

[Svoloch]

Спасибо, но нам пока нельзя использовать оператор "gotoxy"

[BDA]

uses
  crt;

var
  i, k: byte;
  j: char;

begin
  for i := 0 to 4 do
  begin
    for k := 0 to 2 * i do
      write(' ');
    for j := chr(ord('A') + i) to chr(ord('I') - i) do
      write(j, ' ');
    writeln;
  end;
  readln;
end.

[Svoloch]

Спасибо, получилось.