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

    End;
End.