[@Rafa3L]

Код:

if (matritsa[0, 0] > 0) and (matritsa[1, 0] > 0) and (matritsa[2, 0] > 0) and (matritsa[3, 0] > 0) and (matritsa[4, 0] > 0)... then
matritsa[0, -1]:=1;
matritsa[1, -1]:=1;
matritsa[2, -1]:=1;
matritsa[3, -1]:=1;
matritsa[4, -1]:=1;

и дак делаеш для каждово элемента масива.