Программа на Паскале будет выглядеть примерно следующим образом:

program ReplacePositiveElements;
const
M = 3;
N = 3;
type
Matrix = array[1..M, 1..N] of Integer;
procedure FillMatrix(var A: Matrix);
var
i, j: Integer;
begin
for i := 1 to M do
begin
for j := 1 to N do
begin
write('Введите элемент матрицы A[', i, ',', j, ']: ');
readln(A[i, j]);
end;
end;
end;
procedure PrintMatrix(const A: Matrix);
var
i, j: Integer;
begin
for i := 1 to M do
begin
for j := 1 to N do
begin
write(A[i, j], ' ');
end;
writeln;
end;
end;
procedure ReplacePositiveElements(var A: Matrix);
var
i, j: Integer;
begin
for i := 1 to M do
begin
for j := 1 to N do
begin
if A[i, j] > 0 then
A[i, j] := 1;
end;
end;
end;
var
A: Matrix;
begin
FillMatrix(A);
writeln('Исходная матрица:');
PrintMatrix(A);
ReplacePositiveElements(A);
writeln('Матрица после замены положительных элементов на единицу:');
PrintMatrix(A);
end.

Эта программа сначала запрашивает у пользователя ввод элементов матрицы, затем выводит исходную матрицу, затем заменяет все положительные элементы на единицу и выводит измененную матрицу.