Сформируйте массив a[i,j] с помощью датчика случайных чисел. Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный. массив выведите на экран в виде таблицы

"Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный."

Увеличить каждый элемент массива в 3 раза, если элемент массива отрицательный. Может так? Если так, то вот код.

var l: Array[1..10,1..10] of Integer; i,j,n,m: Integer;beginWriteln('Vvedite razmer matrisi: ');Readln(n,m);writeln('Isxodnaya matrisa:');for i:=1 to n dobegin for j:=1 to m do begin l[i,j]:=Random(51)-25; Write(l[i,j]:4); end; writelnend;writeln('Izmenennaya matrisa:');for i:=1 to n dobegin for j:=1 to m do begin if l[i,j]<0 then l[i,j]:=l[i,j]*3; write(l[i,j]:4); end; writelnend;end.