Function Change Pixel Value pada pengolahan citra digital

function ChangePixelValue(MInput:Matriks; X,Y,Value:integer):Matriks;
var
    i,j:integer;
    MOutput : Matriks;
begin
  SetLength(MOutput,Length(MInput),Length(MInput[0]));
  for i:=0 to Length(MOutput)-1 do
  begin
    for j:=0 to Length(MOutput[0])-1 do
    begin
    MOutput[i,j]:=MInput[i,j];
    end;
  end;
  MOutput[X,Y]:=Value;
  ChangePixelValue:=MOutput;
end;