В целочисленном двухмерном массиве размера NxM заменить четные элементы двойками.

uses
  Crt;
 
type
  mass = array of array of ShortInt;
  
var
  n, m, i, j : Byte;
  ar : mass;
  state : Boolean;
  
begin
  while not((n in [1..15]) and (m in [1..15])) do
  begin
    Write('Input n=');
    ReadLn(n);
    Write('Input m=');
    ReadLn(m);
    ClrScr;
  end;
  SetLength(ar, n);
  for i := 0 to (n - 1) do
    SetLength(ar[i], m);
  for i := 0 to (n - 1) do
  begin
    for j := 0 to (m - 1) do
    begin
      ar[i, j] := Random(201) - 100;
      Write(ar[i, j], #9);
    end;
    WriteLn;
  end;
  state := False; WriteLn;
  for i := 0 to (n - 1) do
  begin
    for j := 0 to (m - 1) do
    begin
      if not Odd(ar[i, j]) then
      begin
        ar[i, j] := 2;
        state := True;
      end;
    Write(ar[i, j], #9);
    end;
    WriteLn;
  end;
  if not state then
    WriteLn('Zamen ne bylo');
  ReadLn;
end.