Нарисовать рыбу - Pascal ABC

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

не могу решить эту программу!!!выглядит вот так!!!

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

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

uses graphABC;
begin
 
line(100,120,150,20);
line(150,20,350,20);
line(350,20,300,120);
line(100,280,150,380);
line(150,380,350,380);
line(350,380,300,280);
line(350,200,450,100);
line(350,200,450,300);
line(450,100,550,100);
line(450,300,550,300);
line(500,200,550,100);
line(500,200,550,300);
ellipse(0,100,450,300);
Arc(45,200,60,-90,90);
 
circle(50,180,5);
line(5,220,60,220);
 
end.

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

Объявлена задача - нарисовать рыбу.
Используется графический модуль graphABC.
Код рисует контур рыбы с помощью линий и окружностей.
Линиями формируется контур рыбы, а именно:
- (100,120,150,20) - верхняя часть тела рыбы;
- (150,20,350,20) - правая часть тела рыбы;
- (350,20,300,120) - хвост рыбы;
- (100,280,150,380) - нижняя часть тела рыбы;
- (150,380,350,380) - левая часть тела рыбы;
- (350,380,300,280) - голова рыбы;
- (350,200,450,100) - первая часть плавника;
- (350,200,450,300) - вторая часть плавника;
- (450,100,550,100) - третья часть плавника;
- (450,300,550,300) - четвертая часть плавника;
- (500,200,550,100) - пятая часть плавника;
- (500,200,550,300) - шестая часть плавника;
- (5,220,60,220) - линия, обозначающая рот рыбы;
- (0,100,450,300) - окружность, обозначающая тело рыбы;
- (45,200,60,-90,90) - окружность, обозначающая глаз рыбы;
- (50,180,5) - окружность, обозначающая голову рыбы;
Программа заканчивается.