HighLvl Графика в Паскале

procedure GetImage(X1,Y1,X2,Y2 , var BitMap);
{эта процедура берёт область экрана и сохраняет её в указанную переменную}

procedure PutImage(X,Y,var BitMap; BitBlt)
{эта процедура рисует картинку BitMap начиная с точки (X;Y) и рисует способом BitBlt}

var f:file;
     fname:string;
     size:Word;
     ptr:Pointer; 
 
begin
 
    {здесь нужно включить графический режим}
 
   ...
 
{ЗАГРУЗКА BitMap}   
   Assign(fname,f);       {Открыть файл}
   Reset(f);
 
   size:=FileSize(f);     {Выделить память под динамическую переменную}   
   GetMem(ptr,size);
 
   BlockRead(f,ptr^,size);  {запихнуть содежимое файла в переменную}
 
   Close(f);                    {закрыть файл}
   
   
{ОТРИСОВКА BitMap}   
   ...
   PutImage(x,y,ptr^,NormlPut);      {нарисовать картинку в графическом режиме}
   ...
 
{СОЗДАНИЕ BitMap}   
   ...
   FreeMem(ptr,size);                 {освободить предыдущую картинку, ту, которую мы загрузили в самом начле этого кода}
   size:=ImageSize(x1,y1,x2,y2);  {высчитать размер новой картинки}
   GetMem(ptr,size);                   {выделить память под новую картинку}
   
   GetImage(x1,y1,x2,y2,ptr^)      {сфоткать указанную область экрана в только что созданную BitMap}
   ...
 
{ОТРИСОВКА новой BitMap}   
   ...
   PutImage(x,y,ptr^,NormlPut);      {нарисовать картинку в графическом режиме}
   ...
 
 
 
   {освободить память}   
   FreeMem(ptr,size);
   ...
   {здесь нужно выключить графический режим}
 
 
end;

{ЗАГРУЗКА BitMap}   
   Assign(fname,f);       {Открыть файл}
   Reset(f);                 {..открыть для чтения}
 
   size:=FileSize(f);       {Определить размер, который нужно выделить в памяти под новую переменную}
   GetMem(ptr,size);     {Выделить память под динамическую переменную}   
 
   BlockRead(f,ptr^,size);  {запихнуть содежимое файла в выделенную переменную}
 
   Close(f);                    {закрыть файл}

 {нужно быть в графическом режиме}
 
   size:=ImageSize(x1,y1,x2,y2);  {высчитать размер области экрана}
   GetMem(ptr,size);                   {выделить память под эту область}
   
   GetImage(x1,y1,x2,y2,ptr^)      {сфоткать указанную область экрана и запихнуть её в выделенную GetMem`ом память}

   Assign(fname,f);       {Открыть файл}
   Rewrite(f);               {... открыть для записи}
 
   {в переменную size вы уже должны были записать размер картинки.}
   BlockWrite(f,ptr^,size);  {запихнуть содежимое переменной в файл}
 
   Close(f);

   {нужно быть в графическом режиме}
 
 
{ОТРИСОВКА новой BitMap}   
   ...
   PutImage(x,y,ptr^,NormlPut);      {нарисовать картинку в графическом режиме}
                                                 {комбинация "пойнтер шапка" означает что для рисования мы берем данные оттуда,
                                                                                                                                     куда указывает пойнтер ptr}
   ...