Кодирование изображения

#reference 'System.Drawing.DLL'
Var b: System.Drawing.Bitmap;
    i, j: integer;
    f: Text;
    c: System.Drawing.Color;
Begin
 
    b:= System.Drawing.Bitmap.Create('Image.png');
    Assign (f, 'Bitmap.bmap');
    Rewrite (f);
    Writeln (f,b.Width,' ',b.Height);
    For j:=1 to b.Height-1 do
    For i:=1 to b.Width-1 do 
       Begin
    
        c:=b.GetPixel (i, j);
        Write (f, char(c.R), char(c.G), char( c.B));
       End;     
 
   Close (f);
 
 
End.

{$reference 'System.Drawing.dll'}
var
  b: System.Drawing.Bitmap;
  i, j: integer;
  f: Text;
  c: System.Drawing.Color;
 
begin
  b := System.Drawing.Bitmap.Create('BackGround.png');
  Assign(f, 'Bitmap.txt');
  Rewrite(f);
  Writeln(f, b.Width, ' ', b.Height);
  for j := 1 to b.Height - 1 do
    for i := 1 to b.Width - 1 do 
    begin     
      c := b.GetPixel(i, j);
      Write(f, c.R.ToString, ' ', c.G.ToString, ' ', c.B.ToString, ' : ');
    end; 
  Close(f); 
end.

Readln (f, c); 
   var g:= UnZip (c);
   w:=g.R; h:=g.G;

{reference 'System.Drawing.dll'}
uses
  GraphABC;
 
var
  f: Text;
  c: string;
  s: char;
  w, h: integer;
 
function UnZip(n: string): System.Drawing.Color;
var
  i, p, j: integer;
  RGB: array [1..3] of string;
begin
  if n = 'A' then begin RGB[1] := '0'; RGB[2] := '0'; RGB[3] := '0'; end
  
  else 
    for i := 1 to n.Length do
    begin
      if n[i] = ' ' then Inc(p);    // Счётчик пробелов
      for j := 0 to 2 do
      begin
        if p = j then 
        begin
          case n[i] of
            'M': RGB[j + 1] := '255';
            'X': RGB[j + 1] := '200';
          
          else RGB[ j + 1] += n[i];
          end;
        end;
      end;
    end;
  
  Result := Color.FromArgb(StrToInt(RGB[1]), StrToInt(RGB[2]), StrToInt(RGB[3]));
end;
 
begin
  Assign(f, 'Bitmap.mbp');
  Reset(f);
  ReadLn(f, w, h); // Делаем переход на новую строку
  for var j := 1 to h - 1 do
    for var i := 1 to w - 1 do
    begin
      Readln(f, c);
      SetPixel(i, j, UnZip(c));
    end;
  Close(f);
end.