Изображения в Pascal.ABC

[Voland163]

Помогите пожалуйста написать программу, выполняющую преобразование цветного изображения в черно-белое, при этом в задаче требуют при переводе задать параметры преобразования. Заранее спасибо!

Имею кое-какую программу, но мне кажется что-то в ней не то:

var i, j, n, m: byte;
    s: real;
    a: array [1..100, 1..100] of byte;
begin
  s := 0;
  readln(n, m);
  writeln(n, m);
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
        read(a[i, j]);
          s  := s + a[i, j]
        end;
      readln
    end;
  s := s / n / m;
  writeln(s:0:4);
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          if a[i, j] < s then a[i, j] := 0 else a[i, j] := 255;
          write(a[i, j], ' ')
        end;
      writeln
    end;
  readln
end.

Правильно оформляй код - кнопка # вверху