Умножить на 2 каждый четный элемент матрицы А

var
    ar: Array[Byte] Of ShortInt;
    i, n: Byte;
begin
    repeat
        Write('Input array length (>0): '); ReadLn(n);
    until (n > 0);
    Randomize; Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(99) - 49;
        Write(ar[i]:4);
        if (Not Odd(ar[i]))
        then
            ar[i] := 2 * ar[i];
    end;
    WriteLn; Write('Modified array:');
    for i := 0 to n - 1 do
        Write(ar[i]:4);
    WriteLn;
end.

var
    ar: Array[1..10, 1..10] Of ShortInt;
    i, j, n: Byte;
begin
    repeat
        Write('Input matrix range [1..10]: '); ReadLn(n);
    until (n > 0);
    Randomize; WriteLn('Original matrix:');
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            ar[i,j] := -49 + Random(99);
            Write(ar[i,j]:4);
            if Not Odd(ar[i,j])
            then
                ar[i,j] := 2 * ar[i,j];
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('Modified matrix:');
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(ar[i,j]:4);
        WriteLn;
    end;
    ReadLn;
end.