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

Формулировка задачи:

Помогите решить задачу на Паскале. Нужно каждый четный элемент матрицы удвоить

Решение задачи: «Умножить на 2 каждый четный элемент матрицы А»

Листинг программы

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.

Объяснение кода листинга программы

Объявляется переменная ar - двумерный массив целых чисел размером 10x10.
Объявляются переменные i, j, n - целые числа.
Выполняется цикл с постусловием для ввода значения переменной n в пределах от 1 до 10.
Генерируются случайные значения для элементов массива ar.
Выводится исходная матрица.
Происходит двойной цикл для перебора всех элементов массива.
Каждый элемент проверяется на четность.
Если элемент является четным, то он умножается на 2.
Выводится измененная матрица.