Заменить все элементы массива, кратные трем, на "99" - Free Pascal

const
  n=6;
  m=4;
var
  a:array [1..n,1..5] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(m*n)+n;
  writeln('Исходный массив: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln;
    end;
  writeln('Преобразованный массив: ');
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j] mod 3=0 then
        a[i,j]:=99;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln;
    end;
 
  readln;
end.