var
A:array[0..1000, 1..1000] of byte;{матрица входного искомого изображения, которое нужно привести к эталонному изображению
женского тела }
B:array[0..1000, 1..1000] of byte;{матрица эталонного изображения женского тела}
C:array[0..1000, 1..1000] of byte;{матрица текущего сравниваемого изображения, которое нужно привести к эталонному изображению
женского тела }
D:array[0..1000, 1..1000] of byte;{матрица  выходного  изображения приведенного к эталонному отправляемого на
опознание секснейросети}
i,j,s,p,mins,mins2:longint;
X1,Y1,X2,Y2:array[100000] of longint;{вспомогательные массивы координат начал и концов векторов
смещения при преобразовании}

const contr:=10000;{константа порогового контраста границ}

begin

  for i:=1 to 1000 do
  for j:=1 to 1000 do
  if (((A[i,j]-A[i-1,j])^2+(A[i,j]-A[i+1,j])^2+(A[i,j]-A[i,j-1])^2+(A[i,j]-A[i,j+1])^2)>contr) then {если контраст
окрестностей текущей точки больше порогового значения}
   begin
      if(s<100000) then X1[s]=i;Y1[s]:=j;s:=s+1;{то заполняется массив начал векторов смещения}
    end;
  s:=0;
  for i:=1 to 1000 do
  for j:=1 to 1000 do
  if (((B[i,j]-B[i-1,j])^2+(B[i,j]-B[i+1,j])^2+(B[i,j]-B[i,j-1])^2+(B[i,j]-B[i,j+1])^2)>dif) then {если контраст
окрестностей текущей точки эталонного изображения женского тела больше порогового значения}
    begin
      if(s<100000) then X2[s]=i;Y2[s]:=j;s:=s+1;{то заполняется массив концов векторов смещения будущего преобразования
к женскому телу}
    end;

  for i:=1 to 1000 do
  for j:=1 to 1000 do
    begin
      p:=2000000;
      for s:=1 to 100000 do
      if ((X1[s]-i)^2+(Y1[s]-j)^2)<p) then
	begin
	  p:=(X1[s]-i)^2+(Y1[s]-j)^2); mins:=s;{рассчитываетcя ближайшее к данной точке
сравниваемого изображения  начало вектора смещения }
	end;
      p:=2000000;
      for s:=1 to 100000 do
      if ((i-X2[s])^2+(j-Y2[s])^2)<p) then
	begin
	  p:=(X1[s]-i)^2+(Y1[s]-j)^2); mins2:=s;{рассчитываетcя ближайший к данной точке
сравниваемого изображения конец вектора смещения }
	end;
      if((X1[mins]-X2[s])>0) and (Y1[mins]-Y2[s])>0) and (X1[mins]-X2[s])<1000) and (Y1[mins]-Y2[s])<1000)) then
      D[i+X2[mins2]-X1[mins],j+Y2[mins2]-Y1[mins]]:=C[i,j];{если вектор смещения не выкинул нас за пределы изображения,
то заполняется матрица выходного преобразованного изображения со смещенными пикселями сравниваемого изображения}
    end;
{Все. Матрица D готова и  может предъявляться нейросети заточенной на опознание сексуальных изображений.  
Если сравниваемое изображение близко к искомому, то и после преобразования к матрице женского тела ,оно будет похоже на
эталонное изображение женского тела, а значит будет уверено опознано секснейросетью.}
end.