uses
  GraphABC;

var
  red, green, blue: integer;
  S: string;

{ Процедура вызывается при нажатии мышкой в графическом окне: }
procedure MouseDown(x, y, mb: integer);
begin
  if mb = 1 then begin { <== Срабатывает при нажатии левой кнопки мыши }
   { Перекрашиваем надпись в белый цвет: }
    SetFontColor(clWhite);
    TextOut(1200, 20, red.ToString);
    TextOut(1200, 50, green.ToString);
    TextOut(1200, 80, blue.ToString);

   { Закрашиваем прямоугольник в цвет c: }
    var c := GetPixel(x, y); //возвращаем цвет точки (x, y)
    SetBrushColor(c); //цвет кисти
    FillRect(800, 20, 900, 100); //рисуем прямоугольник

   { Определяем красную, зеленую и синюю составляющие: }
    red := GetRed(c); //возвращаем красную составляющую цвета
    green := GetGreen(c); //возвращаем зеленую составляющую цвета
    blue := GetBlue(c); //возвращаем синюю составляющую цвета

   { Сообщение о возвращенном цвете: }
    SetBrushColor(clWhite); //цвет кисти - белый
     //выводим красную составляющую цвета
    SetFontColor(clRed); //цвет шрифта - красный
    TextOut(920, 20, red.ToString);
     //выводим зеленую составляющую цвета
    SetFontColor(clGreen); //цвет шрифта - зеленый
    TextOut(920, 50, green.ToString);
     //выводим синюю составляющую цвета
    SetFontColor(clBlue); //цвет шрифта - синий
    TextOut(920, 80, blue.ToString)
  end
end;

{ Процедура создания рисунка: }
procedure  kartinka;
var n:string;
    b:Picture;
begin
write ('Введите имя файла рисунка: ');
readln (n);
b:=Picture.Create(n);
b.Load(n);
b.Draw(50,50);
end;

{ ОСНОВНАЯ ПРОГРАММА: }
begin
  kartinka; //вызываем процедуру создания рисунка
  OnMouseDown := MouseDown //вызываем процедуру при нажатии мыши
end.