Нарисовать корабль - Free Pascal

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

задали корабль нарисовать в паскале 7.0...но графику тему проболел и ниче не понимаю..самоучители не помогли....толком ничего не получаеться...надеюсь на вашу помош

Решение задачи: «Нарисовать корабль»

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

Program gr_2;
uses graph,crt;
 var Gd,Gm,i: integer;
begin
 Gd:=Detect;
 initgraph(Gd, Gm, '');
  line(150,200,200,250);
   line(200,250,300,250);
    line(300,250,350,200);
     line(350,200,150,200);
      line(180,200,180,140);
       line(180,140,250,140);
        line(250,140,250,200);
       line(250,140,250,200);
      circle(210,220,10);
     circle(240,220,10);
    circle(270,220,10);
   line(200,140,200,90);
  bar(200,90,230,110);
 readkey;
 closegraph;
end.

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

Список действий в коде:

Подключение необходимых модулей:
- uses graph, crt; В данном случае, модуль graph используется для работы с графикой, а модуль crt - для работы с консолью.
Инициализация графики:
- initgraph(Gd, Gm, ''); Здесь, функция Detect() используется для определения доступных графических режимов (Gd) и модуля (Gm). Пустая строка '' указывает, что графический драйвер не будет выведен на экран.
Рисование корабля:
- line(150,200,200,250);
- line(200,250,300,250);
- line(300,250,350,200);
- line(350,200,150,200);
- line(180,200,180,140);
- line(180,140,250,140);
- line(250,140,250,200);
- line(250,140,250,200);
- circle(210,220,10);
- circle(240,220,10);
- circle(270,220,10);
- line(200,140,200,90);
- bar(200,90,230,110); Здесь используются функции line() и circle() для рисования линий и окружностей соответственно.
Ожидание нажатия клавиши:
- readkey; Эта функция приостанавливает выполнение программы до тех пор, пока пользователь не нажмет клавишу.
Закрытие графического окна:
- closegraph; Функция closegraph() закрывает графическое окно и освобождает ресурсы, занятые графическим драйвером. Таким образом, в коде рисуется корабль с помощью линий и окружностей, после чего программа ожидает нажатия клавиши и закрывает графическое окно.