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

[Sensitive]

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

[volvo]

Вот ASCII-коды всех нужных тебе символов...

Горизонтальные - символ #196
Вертикальные - #179

Угловые:
правый верхний #191
левый верхний #218
правый нижний #217
левый нижний #192

[Sensitive]

вот всё,что я смогла сообразить
Подскажите,что сделать дальше,пожалуйста.
И я не смогла додуматься,как сделать,чтоб например с клавиатуры можно было вводить длину вертикальной и горизонтальной черты...

program ornam;
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;
gotoxy(10,5);
write©;
gotoxy(10,6);
write(B);
gotoxy(10,7);
write(F);
readln;
end.