Псевдографика... Опции

[Sensitive]

нужно построить оранамент с помощью спевдографики на всю ширину экрана.
файл с орнаментом прилагается...
совсем что-то не могу понять,как построить. В поиске не находила. Я получается не знаю,как построить вертикальные прямые в орнаменте,с горизонтальными уже разберусь как-нибудь.
спасибо.

[volvo]

uses crt;
const
  width  = 80;
var
  i, j:byte;

begin
  clrscr;

  gotoxy(1,7);
  for j := 1 to (width div 10) + 1 do begin

    for i := 1 to 5 do write(#196);
    write(#217);
    for i := 1 to 4 do begin
      gotoxy(wherex - 1, wherey - 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey - 1); write(#218);
    for i := 1 to 6 do write(#196);
    write(#191);
    for i := 1 to 2 do begin
      gotoxy(wherex - 1, wherey + 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey + 1); write(#217);
    for i := 1 to 5 do begin
      gotoxy(wherex - 2, wherey); write(#196);
    end;
    gotoxy(wherex - 1, wherey); write(#218);
    for i := 1 to 2 do begin
      gotoxy(wherex - 1, wherey + 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey); write(#192);

  end;
  readln;
end.

Так?

[Sensitive]

Да,volvo, так, спасибо. Совсем позабыла, кстати, про ф-цию where (x,y)...
Один только вопрос: почему в первом цикле

for j := 1 to (width div 10) + 1 do begin

прибавляем единицу?