Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки - Pascal

Формулировка задачи:

Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки подпрограмму с заданным символом для отображения и количеством элементов. Примечание: Для отображения элементов в строке рекомендуется использовать подпрограмму-процедуру с указанием количества элементов (символов) и вида элементов (символов) фигура должна быть отражена в центре экрана, учитывая, что в текстовом режимах стандартное количество позиций для вывода (ширина экрана) равен 80, подпрограмма должна выводить на экран только один ряд, а не всю фигуру. Вот что у меня получилось, но когда прочитал примечание оказалась что неправильно сделал:

unit derevo;
interface
uses crt;
procedure derevo (c:char; n:integer);
implementation
procedure derevo (c:char; n:integer);
var i:integer;
begin
for i:= 1 to n do write(c);
writeln;
end;
end.

uses derevo;
var c:char; 
 begin
  readln(c);
  writeln;
  writeln;
  write(' ',' ');   derevo(c,3);
  write(' ');     derevo(c,5);
                  derevo(c,7);
                  derevo(c,7);
  write(' ');     derevo(c,5);
  write(' ',' ');   derevo(c,3);
  write(' ',' ',' '); derevo(c,1);
  write(' ',' ',' '); derevo(c,1);
  writeln;
  writeln;
 end.

Рисунок к заданию

Решение задачи: «Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки»

Листинг программы

unit derev;
interface
uses crt;
procedure derevo (c:char; x,y,n:integer);
implementation
procedure derevo (c:char; x,y,n:integer);
var i:integer;
begin
gotoXY(x,y);
for i:=1 to n do write(c);
writeln;
end;
end.

Объяснение кода листинга программы

Объявление модуля derev начинается.
Включение модуля crt.
Объявление процедуры derevo с параметрами: c - символ, x и y - координаты, n - целочисленное значение.
Начало реализации процедуры derevo.
Установка позиции каретки на экране в точке с координатами (x, y).
Цикл от 1 до n.
Вывод символа c n раз на экран.
Переход на новую строку.
Завершение реализации процедуры derevo.
Конец модуля derev.