Помогите составить листинг программы в паскале.
Ввести двумерный массив A(N×М) . Каждый элемент, дающий в остатке двойку при делении на 3 увеличить на единицу.Массив вывести до и после
преобразования.

//Pascal ABC.NET v3.1 сборка 1172Const n=4; m=4;Var ar:array[1..n,1..m] of integer; i,j:integer;begin randomize; writeln('First matrix:');  for i:=1 to n do   begin    for j:=1 to m do     begin      ar[i,j]:=random(100);      write(ar[i,j]:4);      if ar[i,j] mod 3=2 then inc(ar[i,j]);     end;     writeln;   end; writeln('Final matrix:'); for i:=1 to n do  begin   for j:=1 to m do    write(ar[i,j]:4);  writeln; end;end.Пример вывода:First matrix:  20  80   1  69  25  77  97   3  32  56  97  23  99  81  12  82Final matrix:  21  81   1  69  25  78  97   3  33  57  97  24  99  81  12  82