модуль crt

[BBagi]

Cуть задачи такова=) В центре красного экрана стоит одна буква D-белая. затем она плавно переходит в квадрат (полый внутри, Т.Е пириметр) который расширяется до границ экрана

Запуталась в for как его грамотно описать=) Экран и буковка чтоб в центре была это могу=) а вот чтоб по периметру увеличевался квадрат=(((

[_Dmitry]

uses crt;
var
  i,j,x0,y0: integer;
begin
  TextBackground(red); ClrScr;
  x0:=40; y0:=13; {центр экрана 80x25}
  GotoXY(x0,y0); Write('D');
  Readln;
  for i:=1 to 12 do
    begin
      ClrScr;
      for j:=1 to 2*i do
        begin
          {чертим линии}
          GotoXY(x0-i+j,y0-i); Write(#196);
          GotoXY(x0-i+j,y0+i); Write(#196);
          GotoXY(x0-i,y0-i+j); Write(#179);
          GotoXY(x0+i,y0-i+j); Write(#179);
        end;
      {устанавливаем углы}
      GotoXY(x0-i,y0-i); Write(#218);
      GotoXY(x0+i,y0-i); Write(#191);
      GotoXY(x0+i,y0+i); Write(#217);
      GotoXY(x0-i,y0+i); Write(#192);
      Delay(50); {задержка}
    end;
  ReadLn;
end.