Сформировать двумерный массив А(5,4). Всем четным элементам полученного массива присвоить значение максимального элемента данного массива.

На паскале, если не на паскале нужно, то укажите какой необходим. const m = 5;          n = 4; var i, j, max: integer;      a: array[1..m, 1..n] of integer; begin   writeln('Исходный массив: ');   for i := 1 to m do begin     for j := 1 to n do begin       a[i, j] := random(20);       write(a[i, j]:3);       if(a[i, j] > max) then max := a[i, j];     end;     writeln;      end;   writeln('Максимальный элемента: ', max);   writeln('Конечный массив: ');   for i := 1 to m do begin     for j := 1 to n do begin       if(a[i, j] mod 2 = 0) then a[i, j] := max;       write(a[i, j]:3);     end;     writeln;   end; end.