Обработка изображения через матрицу путем аффинных преобразований

uses GraphAbc;
var
  a:array[0..4,0..4] of integer:=((40,60,150, 90, 10),
                                (80, 170, 240, 200, 110),
                                (140, 210, 250, 220, 130),
                                (120, 190, 230, 180, 70),
                                (20, 10, 160, 50, 30));
begin
  randomize;
  SetWindowSize(320,240);
  for i:integer:=1 to WindowHeight do begin
  // типа 8 бит (хотя для 8 бит цветов 256)
    case random(8) of
      0:SetPenColor(clBlack);
      1:SetPenColor(clBlue);
      2:SetPenColor(clRed);
      3:SetPenColor(clMagenta);
      4:SetPenColor(clGreen);
      5:SetPenColor(clCyan);
      6:SetPenColor(clYellow);
      7:SetPenColor(clWhite);
    end;  
    line(1,i,WindowWidth,i);
  end;
  SetPenWidth(4);
  SetPenColor(clWhite);
  line(WindowWidth div 2,1,WindowWidth div 2,Window.Height);
  for i:integer:=1 to WindowWidth div 2 do 
    for j:integer:=1 to WindowHeight do begin
      var c:=GetPixel(i,j);
      var t:=a[i mod 5,j mod 5];
      SetPixel(i,j,RGB(c.R+t,c.G+t,c.B+t));
    end;  
end.

uses GraphAbc;
var
  a:array[0..4,0..4] of integer:=((40,60,150, 90, 10),
                                (80, 170, 240, 200, 110),
                                (140, 210, 250, 220, 130),
                                (120, 190, 230, 180, 70),
                                (20, 100, 160, 50, 30));
 p:picture;                                
begin
  p:=picture.Create('teddy.bmp'); //тут имя входного рисунка
  SetWindowSize(p.Width*2,p.Height*2);
  p.Draw(0,0);
  for i:integer:=0 to p.Width-1 do 
    for j:integer:=0 to p.Height-1 do begin
      var c:=p.GetPixel(i,j);
      var t:=a[i mod 5,j mod 5];
      p.SetPixel(i,j,ARGB(c.A+t,c.R,c.G,c.B));
    end;  
  p.Draw(p.Width,0); 
  p.bmp.Save('temp.bmp');// результат после наложения матрицы (хотя я не уверен в правильности примения)
  for i:integer:=0 to p.Width-1 do 
    for j:integer:=0 to p.Height-1 do begin
      var c:=p.GetPixel(i,j);
      if (c.B+c.G+c.R)/3>128 then p.SetPixel(i,j,RGB(255,255,255)) else p.SetPixel(i,j,RGB(0,0,0))
    end;  
  p.Draw(0,p.Height); 
  p.bmp.Save('result.bmp');//итоговое черно-белдое изображение
end.

uses GraphAbc;
var
  a:array[0..4,0..4] of integer:=((40,60,150, 90, 10),
                                (80, 170, 240, 200, 110),
                                (140, 210, 250, 220, 130),
                                (120, 190, 230, 180, 70),
                                (20, 100, 160, 50, 30));
 p:picture;                                
begin
  p:=picture.Create('portret.bmp'); //тут имя входного рисунка
  SetWindowSize(p.Width*2,p.Height*2);
  p.Draw(0,0);
  for i:integer:=0 to p.Width-1 do 
    for j:integer:=0 to p.Height-1 do begin
      var c:=p.GetPixel(i,j);
      var t:=a[i mod 5,j mod 5];//получаем число из матрицы
      var gr:=Round(0.3*c.R+0.59*c.G+0.11*c.B);//перевели в серый цвет
      gr:=min(255,gr+t);//добавляем число из матрицы (сразу затупил, что надо максимальное значение брать, а не модуль)
      p.SetPixel(i,j,RGB(gr,gr,gr)); //изменяем пиксель
    end;  
  p.Draw(p.Width,0); 
  p.bmp.Save('temp.bmp');// результат после наложения матрицы 
//собственно перевод в чб цвет
  for i:integer:=0 to p.Width-1 do 
    for j:integer:=0 to p.Height-1 do begin
      var c:=p.GetPixel(i,j);
      if (c.B+c.G+c.R)/3>128 then p.SetPixel(i,j,RGB(255,255,255)) else p.SetPixel(i,j,RGB(0,0,0))
    end;  
  p.Draw(0,p.Height); 
  p.bmp.Save('result.bmp');//итоговое черно-белое изображение
end.