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

[Sensitive]

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

[Артемий]

А так?

uses crt;
const A=#196; B=#179; C=#218;
      D=#191; E=#217; F=#192;
var i:byte;
begin
clrscr;
gotoxy(1,7);
for i:=1 to 5 do
begin
write(A);
end;
write(E);
for i:=6 downto 3 do
begin
gotoxy(6,i);
write(B);
end;
gotoxy(6,2);
write©;
for i:=7 to 12 do
begin
gotoxy(i,2);
write(A);
end;
write(D);
for i:=3 to 4 do
begin
gotoxy(13,i);
write(B);
end;
gotoxy(13,5);
write(E);
for i:=12 downto 11 do
begin
gotoxy(i,5);
write(A);
end;
for i:=1 to 5 do begin
 gotoxy(i+10,7);
 write(A);
end;
write(E);
for i:=6 downto 3 do begin
 gotoxy(16,i);
 write(B);
end;
gotoxy(16,2);
write©;
for i:=7 to 12 do
begin
gotoxy(i+10,2);
write(A);
end;
write(D);
for i:=3 to 4 do
begin
gotoxy(23,i);
write(B);
end;
gotoxy(23,5);
write(E);
for i:=12 downto 11 do
begin
gotoxy(i+10,5);
write(A);
end;
gotoxy(20,5);
write©;
for i:=6 downto 6 do begin
 gotoxy(20,i);
 write(B);
end;
gotoxy(20,7);
write(#192);
for i:=1 to 5 do begin
 gotoxy(i+20,7);
 write(#196);
end;
gotoxy(13,5);
write(E);
gotoxy(10,5);
write©;
gotoxy(10,6);
write(B);
gotoxy(10,7);
write(F);
readln;
end.

Добавлено через 2 мин.
Результат:

[Sensitive]

Артемий, спасибо. Но мне же нужно сделать такой орнамент по всей ширине экрана. Это постоянно добавлять циклы? Будет же огромная программа. А никак нельзя сделать, чтобы этот кусочек повторялся до тех пор пока не привысится ширина экрана? (repeat...until) я не могу понять как это организовать.....