заменить положительные элементы двумерного массива размерностью 3 на 4 на 1 а отрицательная на и побыстрее

// Pascal ABC.NET
var

 arr: Array [1 .. 3, 1 .. 4] of Integer;

 i, j: Integer;

begin

 // Ввод массива и т.д.

 for i := 1 to 3 do

   for j := 1 to 4 do

     if arr[i, j] > 0 then

       arr[i, j] := 1

     else if arr[i, j] < 0 then

       arr[i, j] := 0;

end.