Begin
    for i:=0 to 4 do
    Begin
        for j:=0 to 4 do
        Begin
            if(arr[i][j] < 0) then do
                Begin
                    arr[i][j]:=0
                End;
            if(arr[i][j] > 0) then do
            Begin
                arr[i][j]:=1
            End;
        End;

    End;
End.