составить программу в Pascal ABC , которая строит изображение предмета в плоском зеркале (расстояние от предмета до зеркала вводится с клавиатуры)

Картинка длжна быть в папке с программой и быть в формате BMP

usesgraphabc;

varn: string;b: Picture;s:integer;

beginwriteln('введите расстояние до зеркала');readln(s);write('Введите имя файла рисунка: ');readln(n);window.Clear;b := Picture.Create(n);b.Load(n);b.Draw(50, 50);b.FlipHorizontal;b.Draw(50+2*s,50);end.