Определить, является ли введенное число двузначным

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

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

var
l: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
begin
Writeln('Vvedite razmer matrisi: ');
Readln(n,m);
writeln('Isxodnaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
l[i,j]:=Random(51)-25;
Write(l[i,j]:4);
end;
writeln
end;
writeln('Izmenennaya matrisa:');
for i:=1 to n do
begin
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;
writeln
end;
end.

1) Химия.  Статистическая модель - формула любого вещества, химического элемента, динамическая модель - формула химической реакции.

2) Биология. Статистическая модель - модель органов пищеварения, модель сердца.

Динамическая модель - этапы развития жизни на земле, модель развития популяции, например, хищника.

3) Физика. Статистическая модель - модель молекулы, модель спектра.

Динамическая модель - построение таблицы значений изменения скорости падения человека с парашютом, построение графика равномерного движения тела.