Составить программу в Pascal ABC…

Картинка длжна быть в папке с программой и быть в формате BMPusesgraphabc; 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.