Вставка Картинки - PascalABC.NET/GraphABC

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

Помогите пожалуйста! Мне надо что бы при выводе на экран, например, Year Black Dog, с этим же текстом была вывелась картинка Вот сам код:

uses crt, GraphABC; //USES указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций) .
// СTR является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее
var g:integer; // Var - это ключевое слово (Variables - переменные) обозначает начало блока определения переменных. То есть, всё что будет идти за этим словом, будет рассматриваться компилятором, как объявление переменных. Integer числовой тип данный без плавающей точки
    z,j: byte; //Тип BYTE object pascal это целый беззнаковый (то есть данные этого типа не имеют знака числа и не могут быть отрицательными) разрядностью 1 байт тип без явных ограничений диапазона допустимых значений.
    pict: Picture;
begin  // начало программы
  pict := Picture.Create('C:\Games\slide_2.jpg'); 
  pict.Draw(0,30); 
  SetFontSize(12);
write('year:'); // Выводим слово year на экран.
readln(g);      // Вводим произвольно выбранный год (Пример: year:200)
z:=g mod 10;    // Делим введенное год на 10, какое число будет в остатке то название цвета и будет выведенно на экран
j:=(g-3) mod 12;  //  Введенный год (Например 2000) вычитаем 3(т.е 1997), затем делим на 12 (=166,416667), потом вычисляем целочисленный остаток (1997-166*12=5)
write(g,' - year '); // выводим на экран ..... -year
case z of         //case - оператор множественного ветвления. Какое число будет в остатке от деления на 10 (например 5), выполняется действие строки под этим номером (выводим на экран слово "Green")
0,1: write('White ');
2,3: write('black ');
4,5: write('Green ');
6,7: write ('Red ');
8,9: write('Yellow ');
end;       // конец цикла
case j of      // Какое число будет в остатке от выполнения функции "j:=(g-3) mod 12", выполняется действие строки под этим номером (выводим на экран название животного по восочному календарю)
0:  write('Pig');
1:  write('Rats');
2:  write('Cows');
3:  write('Tiger');
4:  write('Hare');
5:  write('Dragon');
6:  write('Snake');
7:  write('Horses');
8:  write('Sheeps');
9:  write('Monkey');
10: write('Cock');
11: write('Dog');
end;      // конец цикла
 
readln;
end.    // конец программы

Решение задачи: «Вставка Картинки»

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

uses GraphABC; //Crt в АВС.net нафиг не нужен
var g:integer; // Var - это ключевое слово (Variables - переменные) обозначает начало блока определения переменных. То есть, всё что будет идти за этим словом, будет рассматриваться компилятором, как объявление переменных. Integer числовой тип данный без плавающей точки
    z,j: byte; //Тип BYTE object pascal это целый беззнаковый (то есть данные этого типа не имеют знака числа и не могут быть отрицательными) разрядностью 1 байт тип без явных ограничений диапазона допустимых значений.
    pict: Picture;
    s1,s2,s3,s4:string;
begin  // начало программы
write('Введите номер года g='); 
readln(g);      // Вводим произвольно выбранный год (Пример: year:200)
z:=g mod 10;    // Делим введенное год на 10, какое число будет в остатке то название цвета и будет выведенно на экран
j:=(g-3) mod 12;  //  Введенный год (Например 2000) вычитаем 3(т.е 1997), затем делим на 12 (=166,416667), потом вычисляем целочисленный остаток (1997-166*12=5)
s1:=inttostr(g);
s2:='Year ';
case z of         //case - оператор множественного ветвления. Какое число будет в остатке от деления на 10 (например 5), выполняется действие строки под этим номером (выводим на экран слово "Green")
0,1:s3:='White ';
2,3:s3:='black ';
4,5:s3:='Green ';
6,7:s3:='Red ';
8,9:s3:='Yellow ';
end;       // конец цикла
case j of      // Какое число будет в остатке от выполнения функции "j:=(g-3) mod 12", выполняется действие строки под этим номером (выводим на экран название животного по восочному календарю)
0:s4:='Pig';
1:s4:='Rats';
2:s4:='Cows';
3:s4:='Tiger';
4:s4:='Hare';
5:s4:='Dragon';
6:s4:='Snake';
7:s4:='Horses';
8:s4:='Sheeps';
9:s4:='Monkey';
10:s4:='Cock';
11:s4:='Dog';
end;      // конец цикла
clearwindow;
pict := Picture.Create('3.jpg'); 
SetFontSize(12);
setfontcolor(clRed);
textout(10,10,s1);
setfontcolor(clBlue);
textout(textwidth(s1)+20,10,s2);
setfontcolor(clLime);
textout(textwidth(s1+s2)+30,10,s3);
setfontcolor(clGreen);
textout(textwidth(s1+s2+s3)+40,10,s4);
pict.Draw(10,50);
end.    // конец программы

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

Переменная g используется для ввода года. Тип integer без плавающей точки, поэтому введенное значение будет целочисленным.
Переменные z и j используются для определения цвета и животного года по восточному календарю соответственно. Обе имеют тип byte, который является целочисленным без знака и имеет размер 1 байт.
Переменная pict используется для создания и управления графическим объектом (в данном случае изображением).
Переменные s1, s2, s3 и s4 используются для хранения строк. Все они имеют тип string.
В блоке case z of выполняется операция деления введенного года на 10 и в зависимости от остатка выводится соответствующий цвет.
В блоке case j of выполняется операция вычисления остатка от деления (g-3) mod 12 и в зависимости от остатка выводится соответствующее животное года по восточному календарю.
Используется функция inttostr(g) для преобразования целого числа в строку.
Используется функция textwidth(s) для определения ширины строки в символах.
Используется функция setfontcolor(clcolor) для установки цвета шрифта.
Используется функция textout(x,y,s) для вывода текста на экран в указанной позиции.
Создается объект Picture с именем pict и используется метод Draw для отображения изображения на экране в указанной позиции.