Паскаль умер!

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using System.Drawing;
using System.Drawing.Imaging;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            if (args.Length == 0)
            {
                Console.WriteLine("Дайте имена файлов или маску");
                return;
            }
            for(int i=0;i<args.Length;i++)
            {
                DirectoryInfo dir = new DirectoryInfo(@".\");
                foreach (System.IO.FileInfo file in dir.GetFiles(args[i]))
                {
                    Console.Write("{0}, {1}", file.Name, file.Length);
                    try
                    {
                        Console.WriteLine("");
                        Console.WriteLine(file.FullName);
                        
                        System.Drawing.Image img = System.Drawing.Image.FromFile(file.Name);
                        img = MakeGrayscale3(img);
                        img.Save(file.Name + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg);
                        Console.WriteLine(": Ok");
                    }
                    catch(Exception e)
                    {
                        Console.WriteLine(": Fail with {0}", e);
                    }

                       
                }
            }
        }

        public static Bitmap MakeGrayscale3(Image original)
        {
            //create a blank bitmap the same size as original
            Bitmap newBitmap =
               new Bitmap(original.Width, original.Height);

            //get a graphics object from the new image
            Graphics g = Graphics.FromImage(newBitmap);

            //create the grayscale ColorMatrix
            System.Drawing.Imaging.ColorMatrix colorMatrix = new ColorMatrix(
               new float[][] 
      {
         new float[] {.3f, .3f, .3f, 0, 0},
         new float[] {.59f, .59f, .59f, 0, 0},
         new float[] {.11f, .11f, .11f, 0, 0},
         new float[] {0, 0, 0, 1, 0},
         new float[] {0, 0, 0, 0, 1}
      });

            //create some image attributes
            ImageAttributes attributes = new ImageAttributes();

            //set the color matrix attribute
            attributes.SetColorMatrix(colorMatrix);

            //draw the original image on the new image
            //using the grayscale color matrix
            g.DrawImage(original,
               new Rectangle(0, 0, original.Width, original.Height),
               0, 0, original.Width, original.Height,
               GraphicsUnit.Pixel, attributes);

            //dispose the Graphics object
            g.Dispose();
            return newBitmap;
        }

    }
}

find . -type f -name "*.[jJ][pP][gG]" -exec convert -type grayscale "{}" "{}".jpg \;

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using System.Drawing;
using System.Drawing.Imaging;

{$mode objfpc}{$h+}

uses
     fpreadjpeg, fpwritejpeg, FPImage, classes, sysutils;

var img : TFPMemoryImage;
    reader : TFPCustomImageReader;
    Writer : TFPCustomimageWriter;
var S:tsearchrec;

procedure GrayImage;
 var x,y:integer;  gray:word;
begin
 for x:=0 to img.width-1 do
  for y:=0 to img.height-1 do begin
    gray:=CalculateGray(img.colors[x,y]);
    img.colors[x,y]:=FPColor(gray,gray,gray);
  end;
end;

procedure convert(fname:string);
 begin
  img.LoadFromFile (fname, Reader);
  GrayImage;
  img.SaveToFile (fname+'.gray.jpg', Writer);
 end;

begin
  if findfrst('./*.jpg', faAnyFile-faDirectory, s)=0 then  begin
   img := TFPMemoryImage.Create(0,0);
   img.UsePalette:=false;
   Reader := TFPReaderJPEG.Create;
   Writer := TFPWriterJPEG.Create;
   repeat convert(s.Name); writeln(s.name); until findnext(s)<>0;
   FindClose(s);
   Reader.Free;
   Writer.Free;
   Img.Free;
  end;
end.