В данной целочисленной матрице размером 6*4 все положительные элементы заменить на 1, все отрицательные на -1, нулевые элементы оставить без изменения. Напечатать исходную и полученную матрицы — Pascal(Паскаль)

program prg;
var m:array[1..6,1..4]of integer;
    i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 4 do
read(m[i,j]);
writeln('Исходная матрица');
for i:=1 to 6 do
begin
     for j:=1 to 4 do
     write(m[i,j]:4);
     writeln;
end;
for i:=1 to 6 do
for j:=1 to 4 do
if m[i,j]>0 then m[i,j]:=1 else
if m[i,j]<0 then m[i,j]:=-1 else m[i,j]:=0;
writeln('Полученная матрица');
for i:=1 to 6 do
begin
     for j:=1 to 4 do
     write(m[i,j]:4);
     writeln;
end;
end.