Написать программу которая в двумерном массиве заменяет четные числа на 99

program n_1;var n, i: integer;arr: array [1..10000] of integer;beginwrite ('Введите размер массива: ');readln (n);for i := 1 to n do beginwrite ('arr[',i,'] := ');readln (arr[i]); if not(odd(arr[i])) then arr[i] := 99;end; for i := 1 to n do //выводит массив на экранwriteln ('arr[',i,'] = ', arr[i]);end.