Умножить каждый элемент матрицы на максимальный элемент

program Untitled;
uses crt;
const n=4;
      m=5;
var
   a:array [1..n,1..m] of integer;
   i,j,max,sum:integer;
begin
     randomize;
     {Ðàññòàíàâëèâàåì ýëåìåíòû}
     for i:=1 to n  do
         begin
              for j:=1 to m do
                  begin
                       a[i,j]:=random(10);
                       write(a[i,j]:2);
                  end;
               writeln;
         end;
      {Èùåì ìàêñèìóì}
      max:=a[1,1];
      for i:=1 to n do
          begin
               for j:=1 to m do
                   begin
                        if a[i,j]>max then
                           max:=a[i,j];
                   end;
          end;
      writeln('MAX= ',max);
      {èùåì ñóììó ýëåìåíòîâ 1 ñòðîêè}
      i:=1;
      sum:=0;
      for j:=1 to m do
          begin
               sum:=sum+a[i,j];
          end;
       writeln('sum= ',sum);
       {Ðåçóëüòàò(Ñ âûâîäîì)}
       writeln('UnEnter:');
      for i:=1 to n do
          begin
               for j:=1 to m do
                   begin
                        if max>sum then
                           begin
                                a[i,j]:=a[i,j]*max;
 
                           end;
                         write (a[i,j]:2);
                   end;
                 writeln;
          end;
    repeat until keypressed;
end.