Умножьте все элементы - Pascal ABC

uses crt;
const
m = 10;
n = 5;
var a:array[1..n,1..m] of integer;
i, max, j: integer;
begin
writeln('Исходный массив');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=-9+random(18);
        write(a[i,j]:3);
        end;
    writeln;
    end;
max:=a[1,1];
for i:=1 to n do
    for j:=1 to m do
        if a[i,j] > max then
            max:=a[i,j];
writeln('Итоговый массив');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        textbackground(white);
        if j = m then
            begin
            a[i,j]:=a[i,j]*max;
            textbackground(Yellow);
            end;
        write(a[i,j]:4);
        end;
    writeln;
    end;
end.