Дан произвольный двумерный массив целых чисел.найти максимальный элемент кратный 3 в этом массиве

program vigod; uses crt; const  n = 12;   m = 13; var  a: array[1..n,1..m] of integer;   i, j, max: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   {заполняем массив случайными числами}  randomize;   for i: =1 to n do      for j: =1 to m do          begin              a[i,j]: =random(101)-50;               if a[i,j] mod 3 = 0 then max: =a[i,j];           end;   {находим нужный элемент и выводим массив}  for i: =1 to n do      begin          for j: =1 to m do          begin              if (a[i,j] mod 3 = 0) and (a[i,j]> max)then                  max: =a[i,j];               write(a[i,j]: 4);           end;           writeln();       end;     writeln();     writeln('максимальный элемент кратный 3, равeн ',max); end.проверено - работает на паскаль авс

Код бодо - длина кодов всех символов алфавита оди­накова и равна пяти. в данном случае не возникает про­блемы отделения букв друг от друга.каждая пятерка сигналов — это знак текста. а у морзе каждая буква алфавита кодируется последовательностью коротких сигналов в его случае - точек, и длинных сигналов - тире. буквы отделяются друг от друга паузами, то есть  отсутствием сигналов. примерно так.